VB Forum / Database Access / February 2008

I would like import a text file with delimited semi-colon (;) but not with
comma (,)
When I run the VB source it's not ok. It's ok only with comma
Do you have a solution please

My Texte file
---------------
"F1";"F2";"F3"
"3"; "5"; "6"
"1";"2"; "3"
"1,5";"2,4";"3,6"

My Source
------------
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim PathtoTextFile As String
Dim PathtoMDB As String
Dim myarray() As Variant

Private Sub Form_Load()
 PathtoTextFile = "C:\"
 PathtoMDB = "C:\"
 CmdOpen.Caption = "Open textfile and display field value"
 CmdInsert.Caption = "Insert textfile values into MDB"
End Sub

Private Sub CmdInsert_Click()
 Set Cat = New ADOX.Catalog
 Set objTable = New ADOX.Table
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=" & PathtoMDB & "test.mdb"
 'Open the Catalog
 Set Cat.ActiveConnection = cn
 'delete the table if it exists
 On Error Resume Next
 Cat.Tables.Delete "Table1"
 'Create the table
 objTable.Name = "Table1"
 'Create and Append a new fields to the "table1" Columns Collection
 objTable.Columns.Append "F1", adWChar
 objTable.Columns.Append "F2", adWChar
 objTable.Columns.Append "F3", adWChar

 Cat.Tables.Append objTable

 'Insert into table1 the contents of textfile.txt
 cn.Execute "INSERT INTO Table1 SELECT * FROM " & _
            "[Text;Database=" & PathtoTextFile & ";HDR=YES].[TextFile.txt]"
 cn.Close
 MsgBox "Finished Inserting into MDB"
End Sub