run-time-error-3705

[der]

Que tal compañeros, me pueden ayudar con este error, tengo una serie de text que me los guarda en una tbla de sql y esa misma me la muestra en un msnflexgrid y quiero hacer modificar y eliminar registros desde msnflexgrid pero me marca el error "operation is not allowed when the objects is open en la "Sub cargar_grilla"....
Les dejo el code para que sea mas entendible....

Public Sub cargar_grilla(strquery)
Gd1.Rows = 1
Dim rs As New ADODB.Recordset
***cnnSQLServer.Open***AQUI ME MARCA EL ERROR
rs.ActiveConnection = cnnSQLServer
rs.Source = strquery
rs.Open

rs.MoveFirst
Do
Gd1.AddItem rs!idFam & vbTab & rs!idNomina & vbTab & rs!idParentesco & vbTab & rs!Nombre & vbTab & rs!Direccion & vbTab & rs!Colonia & vbTab & rs!Telefono & vbTab & rs!idActividad & vbTab & rs!idSexo & vbTab & rs!datNacimiento
Gd1.RowData(Gd1.Rows - 1) = rs!idFam
rs.MoveNext
Loop Until rs.EOF = True
cnnSQLServer.Close
Set rs = Nothing


End Sub


Private Sub CmdEliminar_Click()

Call mostrar_Familiar(Gd1.RowData(Gd1.Row))
If Val(Gd1.RowData(Gd1.Row)) = 0 Then
Exit Sub
End If

Dim rsu As New ADODB.Recordset
Call MsgBox("Está seguro que desea eliminar este Familiar", vbYesNo, "Atención")

cnnSQLServer.Open
strquery = ("delete from Familiares5 where idfam=" & Val(Gd1.RowData(Gd1.Row)))
cnnSQLServer.Execute (strquery)

Call cargar_grilla("Select * from Familiares5")

Call MsgBox("No se puede eliminar el Familiar verifique con el Administrador de Sistemas", , "Atención")

End Sub

Call MsgBox("Está seguro que desea eliminar este Familiar", vbYesNo, "Atención")

cnnSQLServer.Open
strquery = ("delete from Familiares5 where idfam=" & Val(Gd1.RowData(Gd1.Row)))
cnnSQLServer.Execute (strquery)

Call cargar_grilla("Select * from Familiares5")

Call MsgBox("No se puede eliminar el Familiar verifique con el Administrador de Sistemas", , "Atención")

End Sub

GRACIAS............