ActionScript - codigo de interes

Public Function DireccionesNuevas(ByRef lvArray As Variant) As ADODB.Recordset
Dim lobj_Object As ObjectContext
Dim co_Aux As ADODB.Connection
Dim cm_Aux As ADODB.Command
Dim rs_aux As ADODB.Recordset
Dim ms_Usuario As String
Dim ms_Password As String
Dim ms_BaseDato As String
Dim ms_Servidor As String
ms_Usuario = "admseg"
ms_Password = "admseg"
ms_BaseDato = "sipan_p"
ms_Servidor = "sdlimvesql03"
Dim ms
On Error GoTo EscribirError

Set lobj_Object = GetObjectContext()
Set co_Aux = New ADODB.Connection
Set cm_Aux = New ADODB.Command
Set rs_aux = New ADODB.Recordset
With co_Aux
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & _
ms_Usuario & ";Password=""" & ms_Password & """;Initial Catalog=" & _
ms_BaseDato & ";Data Source=" & ms_Servidor & ""
.CursorLocation = 3
.Open
End With

With cm_Aux
Set .ActiveConnection = co_Aux
.CommandType = adCmdStoredProc
.CommandText = "USP_QRY_TodoPruebaBorrar"
.Parameters.Append .CreateParameter("@nombre", adVarChar, adParamInput, , p_desde)
.CommandTimeout = 300
Set rs_aux = .Execute
End With
If rs_aux.State = 1 Then
Set rs_aux.ActiveConnection = Nothing
Set DireccionesNuevas = rs_aux.Clone
End If
Set cm_Aux = Nothing
co_Aux.Close
Set co_Aux = Nothing
lobj_Object.SetComplete
Exit Function
EscribirError:
lobj_Object.SetAbort
Err.Raise vbObjectError + 1, , "Transaction unsuccessful. Cause: (" & Err.Number & "-" & Err.Description & ") in dllSectorizacion.cls_sectorizacion.DireccionesNuevas"
End Function

embienme contraceña