Dim insCon As New OleDbConnection
        insCon.ConnectionString = "File Name=D:\Dokumente und" & _
          "Einstellungen\andreas\Eigene Dateien\Visual Studio" & _
          "2008\Projects\Kassenprogramm\Kassenprogramm\Kasse01.udl"
 
        Dim myCmd As New OleDbCommand
        myCmd.Connection = insCon
 
        Dim myInsertQuery As String
        myInsertQuery = "INSERT INTO tbl_verkaufe " & _
        "(rechnungsnummer" & ", " & _
        "re-position" & ", " & _
        "artikelname)" & _
        "VALUES (" & _
        "'re-nr', " & _
        "'re-pos', " & _
        "'art-name')"
        MsgBox(myInsertQuery)
        myCmd.CommandText = myInsertQuery
 
        insCon.Open()
        myCmd.ExecuteNonQuery()
        myCmd.Connection.Close()