Hi Guyz,

Hope you can help me. I have this VB6 program where I need to pass a value to my SQL DTS Package. I have 2 questions actually.

1.) How can I pass a value from VB6 to SQL DTS Package. Below is my code. Is this correct?
Private Sub DTSAccess_ALL()
Dim objPackage As New Package
Set objPackage = New Package
objPackage.LoadFromSQLServer "(local)", , , DTSSQLStgFlag_UseTrustedConnection, , , , "HRIS_DTSFromAccess_ALL", "12/29/2005"
objPackage.Execute
Set objPackage = Nothing
End Sub
2.) How can i use this value into my SQL DTS Package?

Thanks a lot.