Erro / objeto Conn como parametro

[hverardi 0]

Caros,estou com o seguinte problema, ao passar o obj Conn como parametro no meu componente, o erro 3001/Adodb.recordset/Argumentos...etc e retornado! Por favor segue o codigo abaixo e se alguem puder me ajudar, deve ser um detahle a qual não estou consegundo enxergar. Desde ja agardeço a ajuda:Public Sub ViewRPT_PROGSUB(ByVal Conexao As Connection, ByVal Codigo_Proj As Integer, ByVal Codigo_Sub As String, ByVal Codigo_Sys As String, ByVal Codigo_GrpSub As String, ByVal lingua As String)On Error GoTo TrataErroDim ArrayHora(1)Dim RsTmp As ADODB.RecordsetDim Rs As ADODB.RecordsetDim cmd As ADODB.CommandDim id_hh As IntegerDim qtdsubsistema As IntegerDim Cod_Sistema As StringDim Cod_Subsistema As StringDim Nome_Subsistema As StringDim sql As StringDim Total_hh_pre As DoubleDim Total_hh_comm As DoubleDim Totalhoras As DoubleDim avanco_atividade_pre As DoubleDim avanco_atividade_comm As DoubleDim objContext As ObjectContextDim objResponse As ResponseSet objContext = GetObjectContext()Set objResponse = objContext("Response") ' Obtain ASP Response object.qtdsubsistema = 1sql = "SELECT Temp_rel_ativ_progsub.T03_SistemaCod as cod_sys, Temp_rel_ativ_progsub.T04_SubsistemaCod as cod_sub, T04_SubSistema.SubSistemaNome as nm_sub"sql = sql & " FROM Temp_rel_ativ_progsub INNER JOIN"sql = sql & " T04_SubSistema ON Temp_rel_ativ_progsub.T03_SistemaCod = T04_SubSistema.T03_SistemaCod AND"sql = sql & " Temp_rel_ativ_progsub.T01_UnidadeCod = T04_SubSistema.T01_UnidadeCod AND "sql = sql & " Temp_rel_ativ_progsub.T04_SubsistemaCod = T04_SubSistema.T04_SubSistemaCod"sql = sql & " WHERE (Temp_rel_ativ_progsub.T01_UnidadeCod = " & Codigo_Proj & ")" If Len(Codigo_Sys) > 0 And Len(Codigo_Sub) = 0 Then sql = sql & " AND (T04_SubSistema.T03_SistemaCod = '" & Codigo_Sys & "')"End IfIf Len(Codigo_Sys) > 0 And Len(Codigo_Sub) > 0 Then sql = sql & " AND (T04_SubSistema.T03_SistemaCod = '" & Codigo_Sys & "') AND (Temp_rel_ativ_progsub.T04_SubsistemaCod = '" & Codigo_Sub & "')"End IfIf Len(Codigo_Sys) = 0 And Len(Codigo_GrpSub) > 0 Then sql = sql & " AND (Temp_rel_ativ_progsub.T04_SubSistemaCod IN " sql = sql & "(SELECT T04_SUBSISTEMACOD FROM T124_Grupo_Subsistemas " sql = sql & " WHERE T01_UnidadeCod=" & Codigo_Proj & " AND T123_GrupoCod='" & Codigo_GrpSub & "')) "End Ifsql = sql & " GROUP BY Temp_rel_ativ_progsub.T03_SistemaCod, Temp_rel_ativ_progsub.T04_SubsistemaCod, T04_SubSistema.SubSistemaNome"sql = sql & " ORDER BY Temp_rel_ativ_progsub.T04_SubsistemaCod" Set RsTmp = New ADODB.RecordsetRsTmp.CursorLocation = adUseClientRsTmp.Open sql, Conexao, adOpenDynamic, adLockOptimisticetc...obrigado!

[Luizgrs 0]

Tenta muda:

Public Sub ViewRPT_PROGSUB(ByVal Conexao As Connection,

para

Public Sub ViewRPT_PROGSUB(ByVal Conexao As adodb.Connection,

Pois você está usando ado né?