01-07-2010, 03:17 PM
try this, may be it can help you
Code:
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Open "Connection String"
Set oCommand = CreateObject("ADODB.Command")
oCommand.ActiveConnection = oConnection
oCommand.CommandText = "exec Statement"
oCommand.Execute