Private Function ausbuchen(Monat As Integer)
Dim abfrage As String
Dim Bedingung As String
Set adoAusbuchen = New Recordset
abfrage = "select WENr,WEAuszug from Rechnungseingangsbuch"
Bedingung = " WHERE (WEAuszug =" & Monat & " and WENr>0)" & " ORDER BY WENr"
openString = abfrage & Bedingung
adoAusbuchen.Open openString, db, adOpenStatic, adLockOptimistic
 
adoAusbuchen.MoveFirst
For i = 0 To adoAusbuchen.RecordCount - 1
adoAusbuchen.Fields(1) = 12
adoAusbuchen.MoveNext
Next i
End Function