Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim sql, modi As String
 
modi = "Test1"
 
sql = "SELECT * FROM dinfo"
 
With rs
    .ActiveConnection = cn
    .CursorLocation = adUseServer
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
End With
rs.Open sql
 
Do Until rs.EOF = True
    With rs
        cn.BeginTrans
        .Fields("mod").Value = "mistding"
        .Update
        cn.CommitTrans
        .MoveNext
    End With
Loop
 
rs.Close
MsgBox "ready"
End Sub
 
Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
Dim sql, modi As String
 
modi = "test5"
 
sql = "SELECT * FROM dinfo WHERE mod='" & modi & "'"
If rs.State = 1 Then rs.Close
With rs
.ActiveConnection = cn
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
End With
 
rs.Open sql
cn.BeginTrans
Do Until rs.EOF = True
rs.Fields("mod").Value = "mistding"
rs.Update
rs.MoveNext
Loop
cn.CommitTrans
 
rs.Close
MsgBox "fertisch"
End Sub