Dim  Conn_Str As String   
Dim MyODBC As Workspace
  Dim MyConn As Connection
  Set MyODBC = CreateWorkspace("", "admin", "", dbUseODBC)
  Conn_Str= "ODBC;DATABASE=tel;UID=sa;PWD=xxxx;DSN=tango"
  Set MyConn = MyODBC.OpenConnection("", , , Conn_Str)
  MyConn.execute "SP"  ' <-----хранимка 

drop proc inna
go
create proc  inna as
update Categories set description= 'blabla'  

Public Sub XRstRepReq(sqlstr As String, paramstr As String, rptName As String)
Dim zapName As String
Dim MyZap As DAO.QueryDef
Dim MyDb As DAO.Database
DoCmd.OpenReport rptName, acViewDesign, , , acHidden
zapName = Reports(rptName).RecordSource
DoCmd.Close acReport, rptName, acSaveNo
Set MyDb = CurrentDb
On Error Resume Next
MyDb.QueryDefs.Delete zapName
Set MyZap = MyDb.CreateQueryDef(zapName)
MyZap.Connect = "ODBC;DSN=rumba;DATABASE=tel;Trusted_Connection=Yes"
MyZap.SQL = sqlstr & " " & paramstr
MyZap.Close
Set MyZap = Nothing
DoCmd.OpenReport rptName, acViewPreview
DoCmd.RunCommand acCmdZoom75
End Sub