boton guardar y eliminar

[vbx3m]

Puedes probar con este codigo...

Código:

Dim Rst As ADODB.Recordset
Set Rst= New ADODB.Recordset
Rst.CursorLocation=adUseClient
Rst.Open "Select * from usuarios where usuario = '" & UCase(Trim(Text1)) & "'", cnn, adOpenStatic, adLockOptimistic, adCmdText
If Not Rst.EOF Then
    MsgBox "ya existe"
Else
   Rst.AddNew 
   Rst!usuario = UCase(Trim(Text1)) 
   Rst!contraseña = UCase(Trim(Text2)) 
   Rst!nombre = UCase(Trim(Text3))
   Rst!nivel = UCase(Trim(Text4))
   Rst.Update
   Rst.Close
   Set Rst= Nothing  
   MsgBox "Registro Guardado"
End If