boton guardar y eliminar

[vampirito]

este es mi codigo:

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
me marca error en la parte donde estan las letras amarillas.
el error es el siguiente:
el valor de bof o eof es true, o el actual registro se elimino; la operacion solicitada requiere un registro actual