Hi everybody,

Need your help guyz. I'm creating a VB6 program wherein I need to run a MSSQL DTS Package from my VB6 module. I was able to do this. But this time, I need to pass a parameter value to the DTS Package...and then catch that parameters value from my DTS package. How will I do this. Here's my VB6 syntax:

Private Sub Run_DTSPackage()
Dim objPackage As New Package
Dim rsDTS As New Recordset

Set objPackage = New Package
objPackage.LoadFromSQLServer "(local)", , , DTSSQLStgFlag_UseTrustedConnection, , , , "HRIS_DTSFromAccess_ALL", "12/29/2005"
Set objPackage = Nothing

End Sub
Thanks a lot.