Hi,
why got syntax error in insert into statement??
mycode:
your help is much appreciated
:confused:
why got syntax error in insert into statement??
mycode:
Code:
Private Sub Command2_Click()
Dim cn3 As New ADODB.Connection
Dim rs3 As New ADODB.Recordset
cn3.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ";Extended Properties=""text;HDR=No;FMT=Delimited"""
cn3.Execute "INSERT INTO HMF (Code, Number, Date, Time) IN 'C:\hmf.mdb'" _
& "Select * From test.txt"
cn3.Close
cn3.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\hmf.mdb"
Set rs3 = cn3.Execute("Select * From HMF")
Debug.Print rs3.GetString(, , ",", vbCrLf, "")
rs3.Close
cn3.Close
Set rs3 = Nothing
Set cn3 = Nothing
End Sub:confused: