Выполнять Сторед Проседуре Login vb6

У меня есть app в vb6, что давал мне проблемы со связью, с login до основных консультаций, так что попробует меняться login stored procedure с той же консультацией, которая делала в коде

Осталось что-либо подобное

ALTER PROCEDURE [dbo].[SpLoginQualitz] 
    @Login as nvarchar(50)
AS
BEGIN
    SET nocount ON;
        SELECT Usuarios.Caja ,Usuarios.IdUsuario, CatalogoEmpleados.CodigoEmpleado,usuarios.TipoDeCambio, 
        CatalogoEmpleados.Nombre, Usuarios.Login, Usuarios.Password, 
        CatalogoDepartamentos.Nombre AS Departamento,Usuarios.codigosucursal,Usuarios.supervisor,CatalogoDepartamentos.CorreoElectronico,CatalogoDepartamentos.ClaveCorreoElectronico 
        FROM  CatalogoDepartamentos INNER JOIN 
        CatalogoEmpleados ON CatalogoDepartamentos.CodigoDepartamento = CatalogoEmpleados.CodigoDepartamento RIGHT OUTER JOIN 
        Usuarios ON CatalogoEmpleados.CodigoEmpleado = Usuarios.CodigoEmpleado  
        Where login = @Login 
END

В Vb6 у него была идея как делать это, но загородило меня в момент возвращения результата

Dim ACommand As New ADODB.Command
    Dim Aprm As New ADODB.Parameter
    Dim objRecordset As ADODB.Recordset

    ACommand.ActiveConnection = Cnn
    ACommand.CommandType = adCmdStoredProc
    ACommand.CommandText = "SpLoginQualitz"
    Set Aprm = ACommand.CreateParameter("@Login", adVarChar, adParamInput, 10, TxtLogin.Text)
    ACommand.Parameters.Append Aprm
    Set objRecordset = New ADODB.Recordset
    objRecordset.CursorLocation = adUseServer
    objRecordset.CursorType = adOpenForwardOnly
    objRecordset.Open ACommand, Cnn, adOpenStatic, adLockReadOnly 

Даже там я остался блокированным в момент возвращения ответа