Recuperar una datos de un Stored Procedure

[Iaio VISUAL BASIC]

Hola gente... tengo un problema con una conexión VB6.0 a un Stored Procedure SQL Server 2008.

Cuando llego a la linea rstDatos.EOF me arroja el siguiente error:
Error '3704' en tiempo de ejecución:
La operación no está permitida si el objeto está cerrado.

Código vb:

Dim cmdDatos As ADODB.Command
Dim rstDatos As ADODB.Recordset
Set cmdDatos = New ADODB.Command
Set rstDatos = New ADODB.Recordset
With cmdDatos
    .ActiveConnection = Cnn
    .CommandType = adCmdStoredProc
    .CommandText = "dbo.ReaDatosPersonales"
    .Parameters.Append .CreateParameter("@sApellido", adVarChar, adParamInput, 30, sApellido)
    .Parameters.Append .CreateParameter("@sNombre", adVarChar, adParamInput, 30, sNombre)
    .Parameters.Append .CreateParameter("@sTipoDoc", adChar, adParamInput, 1, sTipoDoc)
    .Parameters.Append .CreateParameter("@nDocumento", adInteger, adParamInput, 80, nDocumento)
    .Parameters.Append .CreateParameter("@dFechaNac", adDBTimeStamp, adParamInput, 10, dFechaNac)
    .Parameters.Append .CreateParameter("@sCodEstadoCivil", adChar, adParamInput, 1, sCodEstadoCivil)
    .Parameters.Append .CreateParameter("@sDomicilio", adVarChar, adParamInput, 80, sDomicilio)
    .Parameters.Append .CreateParameter("@nCodLocalidad", adInteger, adParamInput, 50, nCodLocalidad)
    .Parameters.Append .CreateParameter("@nCodProvincia", adInteger, adParamInput, 50, nCodProvincia)
    .Parameters.Append .CreateParameter("@sTelefono1", adVarChar, adParamInput, 15, sTelefono1)
    .Parameters.Append .CreateParameter("@sTelefono2", adVarChar, adParamInput, 15, sTelefono2)
    .Parameters.Append .CreateParameter("@sEmail1", adVarChar, adParamInput, 30, sEmail1)
    .Parameters.Append .CreateParameter("@sEmail2", adVarChar, adParamInput, 30, sEmail2)
End With
With rstDatos
    .CursorLocation = adUseClient
    .Open cmdDatos, , adOpenStatic, adLockReadOnly, adCmdStoredProc
End With
If Not rstDatos.EOF Then
    a = 1
End If
 

QUE CARAJO HICE MALLL!!!! JAJAJA