DTS execute has stopped working

[jockey]

I have created several DTS pacages to convert imported spreadsheets into a generic table for sales analysis. I was executing the DTS packages from within my VB program with no problems at all using the code below :-

strShell = "dtsrun /BTLSQL /sa /sqlservice /" & PackageName & ""
strSql = "{CALL xp_cmdshell('" & strShell & "' , 'no_output')}"
With conDTS
.ConnectionString = cstConnectionStringBTLSQLDTS
.Open
.Execute strSql, , adCmdText + adExecuteNoRecords
.Close
End With

I have altered the DTS packages slightly and now they do not execute when using the code above. Yrt they will run correctly and to compleation from within enterprise manager. I have no idea why they have stopped working so I would be most gratefull of any suggestion.

Cheers

Jamie

 

[nigelrivett]

try using dtsrun from the command line and see what it says.

======================================
Cursors are useful if you don't know sql.
DTS can be used in a similar way.
Beer is not cold and it isn't fizzy.