Try this..
Dim CN As New ADODB.Connection
Dim cmd As New ADODB.Command
CN.Open "Connection String"
With cmd
.ActiveConnection = CN
.CommandType = adCmdStoredProc
.CommandText = "UpdateTable"
.Execute
End With
Set cmd = Nothing
CN.Close
Set CN = Nothing