Private Sub Command1_Click()
  Dim c As New Connection
  Dim sql As String
 
  c.CursorLocation = adUseClient
  c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ";Jet" & _
    "OLEDB:Engine Type=96"
  sql = "INSERT INTO TABELLE1 IN '" & App.Path & "\test.mdb' SELECT * FROM" & _
  "TEST.TXT"
  c.Execute sql, , adCmdText
End Sub