Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cao.mdb"
        Dim connection As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          strCon)
        Dim sqlstatement As String
        Dim dbInsertCommand As OleDb.OleDbCommand
 
        Dim timestamp As String
        Dim verpacker As String
        Dim status As String
        Dim meldung As String
 
        timestamp = DateAndTime.Now
        verpacker = Main.TextBox2.Text
        status = 1
        meldung = "fehler"
        Try
            sqlstatement = "INSERT INTO svp_versand (timestamp, verpacker," & _
              "status, meldung) VALUES ('" & timestamp & "','" & verpacker & _
              "'," & status & ",'" & meldung & "')"
            MsgBox(sqlstatement)
 
            Dim command As OleDb.OleDbCommand = _
              New OleDb.OleDbCommand(sqlstatement, connection)
            command.Connection.Open()
            Dim count As Integer = command.ExecuteNonQuery
            command.Connection.Close()
            MsgBox(count)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try