Для DAO
Sub ConnectionObj()
Dim qdf As QueryDef
Dim wrkODBC As Workspace
Dim con As Connection
Dim i, tt


tt = "ODBC;DSN=MS SQL1;UID=login;PWD=password;"
Set wrkODBC = DBEngine.CreateWorkspace("", "", "", dbUseODBC)
Set con = wrkODBC.OpenConnection("Cnn", , , tt)
Set qdf = con.CreateQueryDef("", "Exec testing_call ?")
'MsgBox (qdf.Parameters.Count)
'qdf.Parameters(0).Value = 0
qdf.Parameters(0).Direction = dbParamInputOutput
qdf.Execute
MsgBox (qdf.Parameters(0))
qdf.Close
con.Close
wrkODBC.Close

End Sub