Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Data Source=cao.mdb")
        Dim timestamp As DateTime
        Dim timestamps As String
        Dim verpacker As String
        Dim status As String
        Dim meldung As String
        Dim sqlstatement As String
 
        timestamp = DateAndTime.Now
        timestamps = timestamp.Year & "-" & timestamp.Month & "-" & _
          timestamp.Day
        timestamps = timestamps & " " & timestamp.Hour & ":" & timestamp.Minute _
        & ":" & timestamp.Second
        verpacker = Main.TextBox2.Text
        status = 1
        meldung = fehler.Replace(vbCrLf, "<br/>")
 
        Try
            sqlstatement = "INSERT INTO svp_versand (timestamp, verpacker," & _
              "status, meldung) " & _
                            "VALUES (" & _
                            "'@timestamps','@verpacker',@status,'@meldung')"
            conn.Open()
            Dim myCmd As New OleDb.OleDbCommand(sqlstatement, conn)
            myCmd.Parameters.AddWithValue("@timestamps", timestamps)
            myCmd.Parameters.AddWithValue("@verpacker", verpacker)
            myCmd.Parameters.AddWithValue("@status", status)
            myCmd.Parameters.AddWithValue("@meldung", meldung)
 
            myCmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try