strSQL = "INSERT INTO Schuldbriefe " & _
"(ProvisorischeAuslieferung) " & _
"VALUES " & _
"(@DatumsWert) " & _
"WHERE ID=@SchuldbriefID;"
    Dim myCmd As OleDbCommand = New OleDbCommand(strSQL, DeineConnection)
    With myCmd
        .Parameters.Add("@DatumsWert", OleDbType.Date).Value = _datum
'Integer nehm ich jetzt mal an für die Schuldbriefid
        .Parameters.Add("@SchuldbriefID", OleDbType.Integer).Value = _id 
    End With