Dim query As String
        Dim conStr As String = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" _
          & Application.StartupPath & "\datenbank.mdb;"
        query = "INSERT INTO def (feld1, feld2, usw) VALUES ('" & erster wert & _
        "', '" & zweiter wert & "', '" & usw & "')"
 
        Dim conn As New System.Data.Odbc.OdbcConnection(conStr)
        Dim com As New System.Data.Odbc.OdbcCommand(query, conn)
 
        Try
            conn.Open()
            com.ExecuteNonQuery()
            MsgBox("OK")
        Catch ex As Exception
            MsgBox("Fehler" & vbcrlf & ex.Message)
        Finally
            conn.Close()
        End Try