Private conn As New System.Data.OleDb.OleDbConnection()
Private command As New OleDb.OleDbCommand()

 
Using sr As IO.StreamReader = New IO.StreamReader(strFilePath)
                Do
                    lineTemp = sr.ReadLine()
...

 
Dim strValues(56) As String
Dim sqlQuery As String = ""
Dim i As Integer
 
strValues(1) = Trim(Split(strFileLine1, "|")(1))
strValues(2) = Trim(Split(strFileLine1, "|")(2))
...
strValues(56) = Trim(Split(strFileLine3, "|")(18))
 
sqlQuery = "Insert into VAist VALUES("
For i = 1 To 56        
   sqlQuery = sqlQuery + strValues(i) + ","
Next
sqlQuery += ")"
...
command.CommandText = sqlQuery
command.ExecuteNonQuery()