Visual Basic - ayuda error 3705

necesito ayuda me sale el mensaje error 3705
la operacion no esta permitida si el objeto esta abierto

lo que estoy haciendo es que cuando se ingrese un codigo ,si ya se encuentra
grabado me salga un mensaje codigo ya existente ,de lo contrario me permita
grabarlo.


Dim cn As New Connection
Dim rs1 As New Recordset


Private Sub cmdeditar_Click()
rs1.Update
End Sub

Private Sub cmdeliminar_Click()
rs1.Delete
End Sub

Private Sub cmdgrabar_Click()

rs1.Open "select * from clientes where codigo ='" & Text1.Text & "'", cn, adOpenStatic, adLockOptimistic
rs1.MoveNext

If Not rs1.EOF Then
MsgBox ("codigo ya existe")
Else

rs1.Fields("codigo") = Text1.Text
rs1.Fields("nombre") = Text2.Text
rs1.Fields("apellidos") = Text3.Text
rs1.Fields("distrito") = DataCombo1.Text

Call grabar

End If

End Sub

Sub grabar()
rs1.Update

End Sub


Private Sub cmdnuevo_Click()

Text1.Text = Empty
Text2.Text = Empty
Text3.Text = Empty
Me.DataCombo1.Text = Empty

rs1.AddNew
End Sub

Private Sub DataGrid1_Click()
Text1.Text = rs1.Fields("codigo")
Text2.Text = rs1.Fields("nombre")
Text3.Text = rs1.Fields("apellidos")

End Sub

Private Sub Form_Load()
On Error Resume Next

Dim cn As New Connection
Dim rs As New Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Escritorio\kgv2\base.mdb;Persist Security Info=False"

cn.CursorLocation = adUseClient

rs1.Open "select * from clientes ", cn, adOpenStatic, adLockOptimistic

Set Me.DataGrid1.DataSource = rs1


End Sub

Tienes que establecer la propiedad CursorLocation del objeto Recordset de ADO en adUseClient

hola jackson
la que me dices ya lo hice y nada
me sale el mismo mensaje la operacion no ets permitida si el objeto esta abierto