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 (?,?,?,?,?)"
            objCommand.Parameters.Add("@feld1", OleDbType.VarChar, 20, _
              "feld1").Value = " ... "
            objCommand.Parameters.Add("@feld2", OleDbType.VarChar, 20, _
            "feld2").Value = " ... "
            objCommand.Parameters.Add("@ID", OleDbType.Integer , 10, _
            "ID").Value = ...
            objCommand.Parameters.Add("@Datum", OleDbType.DBDate, 12, _
            "Datum").Value = Now.Date
            objCommand.Parameters.Add("@Zeit", OleDbType.DBTime, 8, _
            "Zeit").Value = Now.TimeOfDay
            objCommand.CommandType = CommandType.Text
            objCommand.ExecuteNonQuery()
        Catch ex As Exception
        Finally
            objConnection.Close()
        End Try