With rstDatos
        .ActiveConnection = objConeccion
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockBatchOptimistic 
        .Open "SP_Name"
    End With
    
    If rstDatos.RecordCount > 0 Then rstDatos.MoveFirst
    rstDatos.ActiveConnection = Nothing

Yen Yucra Huauya 
MCSD
Gra~a Montero Digital - GMD