Recordset desconectado ???

[mgd]

Hola como estan?
bueno el problema que tengo es que a travez de un procedimiento almacenado en mysql cargo los datos de una consulta a un recordset, entonces ese recordset lo cargo a un msflexgrid.
Cando intento filtrar ese recordset aveces me da error en la linea

Código VB:

rspacientes.Filter = "nombre" & " LIKE '*" + txtfiltro + "*'"
 

el error es de que se perdio la conexion con el servidor, aveces tambien me da error en rspacientes.movefirst

mientras uso el programa en la misma maquina que el servidor anda todo bien y muy pocas veces da este error. las variables del servidor las extendi osea que ese no es el problema.

Intento desconectar el recordset una vez ejecutado el procedimiento almacenado y cargado los datos al recordset algo asi

Código VB:

Set cmd = New ADODB.Command
    Set rspacientes = New ADODB.Recordset
    cmd.ActiveConnection = db
    rspacientes.CursorLocation = adUseClient
    cmd.CommandText = "call cargarpacientes('" & estado & "','" & orden & "')"
    Set rspacientes = cmd.Execute
 
    Set rspacientes.ActiveConnection = Nothing
 

Esto me dice que la operacion no esta permitida si el objeto esta abierto

entonces prueba asi

Código VB:

Set cmd = New ADODB.Command
    Set rspacientes = New ADODB.Recordset
    cmd.ActiveConnection = db
    rspacientes.CursorLocation = adUseClient
    cmd.CommandText = "call cargarpacientes('" & estado & "','" & orden & "')"
    Set rspacientes = cmd.Execute
    rspacientes.Close
    Set rspacientes.ActiveConnection = Nothing
 

y esto me dice que no se puede cambiar la propiedad activeconnection del objeto recordset si el origen es un objeto command


Que puedo hacer ????

Agrego que solo utilizo el recordset para cargar los datos en controles y los update, delete o insert los hago con otros procedimientos almacenados.

Muchas gracias