Запрос к серверу из аксесс при помощи ADO

Set objConn = CreateObject("ADODB.Connection")
'Определяем параметры подключения к базе данных
ServerName = "(local)" 'имя или IP-адрес сервера
DSN = "master" 'имя базы данных
UID = "sa" 'логин пользователя SQL-сервера
PWD = "111" 'пароль пользователя SQL-сервера
ConnectString = "Provider=SQLOLEDB;" & _
                "Data Source=" & ServerName & _
                ";Initial Catalog=" & DSN & _
                ";UID=" & UID & ";PWD=" & PWD
objConn.ConnectionString = ConnectString
objConn.ConnectionTimeOut = 15
objConn.CommandTimeout = 30
'Подключаемся к базе данных
objConn.Open
'Выполняем запрос
Set objRecordset = objConn.Execute("SELECT name, filename FROM sysdatabases")
'Перебираем результаты запроса
While Not objRecordset.EOF
    strRes = vbNullString
    For i=0 To objRecordset.Fields.Count-1
        strRes = strRes & CStr(objRecordset.Fields(i).Value) & vbTab
    Next
    WScript.Echo Trim(strRes)
    objRecordset.MoveNext
Wend
'Закрываем соединение
objConn.Close
Set objConn = Nothing
Set objRecordset = Nothing

Private Sub Form_Open(Cancel As Integer)
    Dim rs As ADODB.Recordset
    Dim Connection As ADODB.Connection
    Set Connection = New ADODB.Connection
    Connection.ConnectionString = "Provider=Microsoft.Access.OLEDB.10.0;Persist Security Info=False;Data Source=ODCSERVER;Integrated Security=SSPI;Initial Catalog=ODC128;Data Provider=SQLOLEDB.1"
    Connection.Open
 
 
   Set rs = New ADODB.Recordset
   With rs
      Set .ActiveConnection = Connection
      .Source = "SELECT tblInformation.* FROM tblInformation"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .Open
   End With
   
 
   Set Me.Recordset = rs
   Set rs = Nothing
   Set Connection = Nothing
End Sub

Private Sub Form_Open(Cancel As Integer)
Set objConn = CreateObject("ADODB.Connection")
'Определяем параметры подключения к базе данных
ServerName = "(ODCSERVER)" 'имя или IP-адрес сервера
DSN = "ODC128" 'имя базы данных
UID = "sa" 'логин пользователя SQL-сервера
PWD = "" 'пароль пользователя SQL-сервера
ConnectString = "Provider=SQLOLEDB;" & _
                "Data Source=" & ServerName & _
                ";Initial Catalog=" & DSN & _
                ";UID=" & UID & ";PWD=" & PWD
objConn.ConnectionString = ConnectString
objConn.ConnectionTimeout = 15
objConn.CommandTimeout = 30
'Подключаемся к базе данных
objConn.Open
'Выполняем запрос
Set objRecordset = objConn.Execute("SELECT tblInformation.* FROM tblInformation")
'Перебираем результаты запроса
While Not objRecordset.EOF
    strRes = vbNullString
    For i = 0 To objRecordset.Fields.Count - 1
        strRes = strRes & CStr(objRecordset.Fields(i).Value) & vbTab
    Next
    WScript.Echo Trim(strRes)
    objRecordset.MoveNext
Wend
'Закрываем соединение
objConn.Close
Set objConn = Nothing
Set objRecordset = Nothing
End Sub

Private Sub Form_Load()
Set objConn = CreateObject("ADODB.Connection")
'Îïðåäåëÿåì ïàðàìåòðû ïîäêëþ÷åíèÿ ê áàçå äàííûõ
ServerName = "mssql1.1gb.ua"      'èìÿ èëè IP-àäðåñ ñåðâåðà
DSN = "1gb_Libr2000"                    'èìÿ áàçû äàííûõ
UID = "1gb_studlibrary"                   'ëîãèí ïîëüçîâàòåëÿ SQL-ñåðâåðà
PWD = "eb836bbe"                         'ïàðîëü ïîëüçîâàòåëÿ SQL-ñåðâåðà
ConnectString = "Provider=SQLOLEDB;" & _
                "Data Source=" & ServerName & _
                ";Initial Catalog=" & DSN & _
                ";UID=" & UID & ";PWD=" & PWD
objConn.ConnectionString = ConnectString
objConn.ConnectionTimeout = 15
objConn.CommandTimeout = 30
'Ïîäêëþ÷àåìñÿ ê áàçå äàííûõ
objConn.Open
 
Dim recset1 As ADODB.recordset
Dim recset2 As ADODB.recordset
                    Dim strSQL As String
                    Dim strSQLCombo  As String
Dim strFrmNm As String
strSQL = "SELECT TblAuthor.AuthorID, TblAuthor.I, TblAuthor.AuthorName FROM TblAuthor;"    '    ''WHERE (((TblAuthor.authorid) = 300)) ORDER BY TblAuthor.AuthorName;"
strSQLCombo = "SELECT TblRazdel.RazdelPodst FROM TblRazdel;"       ' "SELECT TblAuthor.AuthorName FROM TblAuthor;"
 
Set recset1 = New ADODB.recordset
    recset1.CursorType = adOpenKeyset
    recset1.LockType = adLockOptimistic
recset1.Open strSQL, objConn
            strFrmNm = "FrmAuthor"
            DoCmd.OpenForm strFrmNm
            Set Application.Forms(strFrmNm).recordset = recset1
Forms![FrmAuthor]![Pole1].SetFocus
Forms![FrmAuthor]![Pole1].ControlSource = "AuthorName"
recset1.Close
Set recset1 = Nothing
 
Set recset2 = New ADODB.recordset
            recset2.CursorType = adOpenKeyset
            recset2.LockType = adLockOptimistic
recset2.Open strSQLCombo, objConn
[COLOR="Yellow"]Set Application.Forms(strFrmNm).recordset = recset2    'Mistake!!!!!!![/COLOR]
 
Form_FrmAuthor.ComboPole2.SetFocus
Form_FrmAuthor.ComboPole2.RowSource = "TblRazdel.RazdelPodst"
 
 
recset2.Close
Set recset2 = Nothing
objConn.Close
Set objConn = Nothing
End Sub