RE:Pasar *.txt a tabla en VB.NET
Yo lo hago así:
OleDbConnection1.Open()
FileOpen(1, "c:\nombrefichero.txt", OpenMode.Input)
LíneaDeTexto = LineInput(1)
For iContador = 0 To LOF(1) - 115 Step 115 ----> longitud de los registros a leer
strAcumulador = LíneaDeTexto.Substring(iContador, 115)
OleDbInsertar.Parameters("codigo_cliente").Value = Val(strAcumulador.Substring(13, 5))
OleDbInsertar.Parameters("numero_recibo").Value = iAcumulador2
OleDbInsertar.Parameters("fecha_cobro").Value = strAcumulador.Substring(73, 2) & "/" & strAcumulador.Substring(75, 2) & "/" & strAcumulador.Substring(77, 4)
iFilas = OleDbInsertar.ExecuteNonQuery
Next
OleDbConnection1.Close()
FileClose(1) 'cerrar archivo