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