All pastes #246417 Raw Edit

Miscellany

public text v1 · immutable
#246417 ·published 2006-11-12 04:48 UTC
rendered paste body
Private Sub cmdApply_Click()
    adoRcds.Open "Registered_Users", "DSN=BibloDSN", adOpenKeyset, adLockOptimistic
    
    With adoRcds
        .AddNew
        .Fields(0) = txtNewNName.Text
        .Update
    End With
    
    adoRcds.Close
End Sub