Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim sql, modi As String
 
modi = "master"
 
sql = "SELECT * FROM dinfo WHERE mod='" & modi & "'"
 
With rs
    .Source = sql
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open
End With
 
Do Until rs.EOF = True
    With rs
        cn.BeginTrans
        .Fields("mod").Value = "mistmaster"
        .Update
        cn.CommitTrans
        .MoveNext
    End With
Loop
 
rs.Close
End Sub