Dim objConnection As OleDbConnection = New OleDbConnection _
      ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=database.mdb;")
        Dim objCommand As OleDbCommand = New OleDbCommand()
 
        Try
            objCommand.Connection = objConnection
            objConnection.Open()
            objCommand.CommandText = "INSERT INTO tabelle1 " & _
                "(feld1, feld2, ID, Datum, Zeit)" & _
                "VALUES (?,?,?,'" & Date.Now & "',?)"
            objCommand.CommandType = CommandType.Text
objCommand.ExecuteNonQuery()
        Catch ex As Exception
        Finally
            objConnection.Close()
        End Try