Private Sub B_Add_Click()
Dim Conn_Str As String
Dim MyODBC As Workspace
Dim MyConn As Connection
Dim TestTable As Recordset
Conn_Str = "ODBC;DATABASE=Inga;UID=sa;PWD=xxxxx;DSN=tango"
  Set MyODBC = CreateWorkspace("", "admin", "", dbUseODBC)
  Set MyConn = MyODBC.OpenConnection("", , , Conn_Str)
    Set TestTable = MyConn.OpenRecordset("Foxstrot 11")
    Do Until TestTable.EOF
    Debug.Print TestTable( 2 ); TestTable( 3 )
    TestTable.MoveNext
    Loop
End Sub
 '================== скрипт от Sql ============================
 
create procedure Foxstrot
@MyId int
As
SELECT  *  from TComp  Where Comp_Id < @MyId
GO