boton guardar y eliminar

[Jasall]

Código:

Dim Sql As String
Dim Rst As New ADODB.Recordset

Sql = "Select * from usuarios where usuario = '" & UCase(Trim(Text1)) & "'"
With Rst
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .Source = Sql
    Set .ActiveConnection = cnn
    .Open
    If Not .EOF And Not .BOF Then
    MsgBox "ya existe"
    Else
       .AddNew
        !usuario = UCase(Trim(Text1))
        !contraseña = UCase(Trim(Text2))
        !nombre = UCase(Trim(Text3))
        !nivel = UCase(Trim(Text4))
        .Update
        MsgBox "Registro Guardado"
    End If
End With