Dim c As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim lsSQL As String
  'создание команды shape
  lsSQL =  ""
  lsSQL = lsSQL & " SHAPE  "
  lsSQL = lsSQL & "  {{ call authors_BrowseAll }}  "
  lsSQL = lsSQL & "  APPEND  "
  lsSQL = lsSQL & "  ({SELECT * FROM Titles t, TitleAuthor ta  "
  lsSQL = lsSQL & "   WHERE t.title_id = ta.title_id}  "
  lsSQL = lsSQL & "  AS titles  "
  lsSQL = lsSQL & "  RELATE au_id TO au_id) "
  
  Set c = New ADODB.Connection
  c.Provider = 
    " MSDataShape "c.Open" DataProvider=MSDASQL;DSN=pubs;uid=sa;pwd=;database=pubs"
  
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  rs.Open lsSQL, c