Sub RunUpdateQuery()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
'Establish the connection and execute a stored procedure
cnn.Open "Provider=SQLOLEDB.1;" & _
"Data Source=(local); Initial Catalog=NorthWind;" & _
"Integrated Security=SSPI"
cnn.Execute "procIncreaseTotalEstimate"
cnn.Close
End Sub