INSERT DATA FROM TEXTFILE TO DATABASE

Private Sub readfile()
'Dim delimiter As String() = {vbTab}
'Dim headers As String() = Split(lines(1), delimiter(0))

Dim tabSize As Integer = 0
Dim arInfo As String()
Dim objstreamreader As StreamReader
objstreamreader = File.OpenText(Ge_Filename + filename)
' ReadAllText("E:\vengatesh\USADD@12!20110130163507-1_4.txt")
Dim a As String()
a = File.ReadAllLines(Ge_Filename + filename)
' contents = a.Replace(("").PadRight(tabSize, " "c), vbTab)
Dim textdelimiter As String() = {vbTab}
For count As Integer = 1 To 12
arInfo = Split(a(count), textdelimiter(0))
For i As Integer = 0 To arInfo.Length
' row = Table.NewRow()
If i < arInfo.Length Then
vendor = arInfo(i).ToString()
End If
If i + 1 < arInfo.Length Then
user = arInfo(i + 1).ToString()
End If
If i + 2 < arInfo.Length Then
product = arInfo(i + 2).ToString()
End If
If i + 3 < arInfo.Length Then
itemcondition = arInfo(i + 3).ToString()
'Table.Rows.Add(row)
End If
If i + 4 < arInfo.Length Then
itemnode = arInfo(i + 4).ToString()
'Table.Rows.Add(row)
End If
If i + 5 < arInfo.Length Then
price = arInfo(i + 5).ToString()
End If
If i + 6 < arInfo.Length Then
seller = arInfo(i + 6).ToString()
End If
If i + 7 < arInfo.Length Then
quantity = arInfo(i + 7).ToString()
End If
If i + 8 < arInfo.Length Then
adddelete = arInfo(i + 8).ToString()
End If
If i + 9 < arInfo.Length Then
shipinternelly = arInfo(i + 9).ToString()
End If
If i + 10 < arInfo.Length Then
exiptedship = arInfo(i + 10).ToString()
End If
If i + 11 < arInfo.Length Then
mrp = arInfo(i + 11).ToString()
Dim get_Value = obj.Insert_data(vendor, user, product, itemcondition, itemnode, price, seller, quantity, adddelete, shipinternelly, exiptedship, mrp).ToString()
End If
i = i + 12
Next

Next










End Sub