¿Cómo devuelvo un objeto command?

Toni
22 de Marzo del 2004
Tengo esta función:

Function comando(x As String) As Command

Dim ComandLoad As New Command
With ComandLoad
.CommandType = adCmdText
.CommandText = x
.ActiveConnection = Conexion()
End With


End Function

Quiero que devuelva el objeto ComandLoad. ¿Alguien sabe como hacerlo?

shiquilla
22 de Marzo del 2004
Function comando(x As String) As Command

Dim ComandLoad As New Command
With ComandLoad
.CommandType = adCmdText
.CommandText = x
.ActiveConnection = Conexion()
End With

comando=CommandLoad

End Function

en el procedimiento pones :

Dim CommandQueQuieresRecoger as new Adodb.Command

CommandQueQuieresRecoger=comando(Vble_Para_Pasar_A_La_Funcion)