Пример перевода DAO в ADO

   Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset("AUTH", dbOpenDynaset)
   rs.MoveFirst
   Do Until rs.EOF
     If rs!login = Me.field_login Then
       If rs!passwd = Me.passwd Then
       login_name = Me.field_login
       DoCmd.OpenForm "DISTRIB"
       rs.MoveLast
       rs.MoveNext
       DoCmd.Close acForm, "Auth_start", acSaveYes
       Else
       MsgBox "Password do not match!"
       Me.passwd = ""
       rs.MoveLast
       rs.MoveNext
       End If
     Else
     rs.MoveNext
    End If
   Loop

Declare PtrSafe Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare PtrSafe Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long

Public Function Connection() As ADODB.Connection
Dim strFileName As String
' strFileName = CurrentProject.Path & "\BASE\ProfServ_DB.accdb"
    strFileName = "ODBC;DRIVER=SQL Server;SERVER=BLADE_WORK_PC\SQL2008R2EXPR;APP=Microsoft Office 2010;DATABASE=ProfServ_base_1.1SQL"
    If Len(Dir$(strFileName)) = 0 Then strFileName = WhereDatabase
    If Len(strFileName) > 0 Then
        If m_cnn Is Nothing Then
            Set m_cnn = New ADODB.Connection
            m_cnn.Provider = CurrentProject.Connection.Provider
            m_cnn.ConnectionString = "Data Source=" & strFileName
            m_cnn.Open
        End If
    End If
    If m_cnn.State = 1 Then
        Set Connection = m_cnn
    Else
        MsgBox "Нас постигла неудача" & vbCrLf & "Контакт не установлен.", vbCritical, ":("
        Set m_cnn = Nothing
    End If
End Function

If m_cnn.State = 1 Then

"ODBC;DRIVER=SQL Server;SERVER=BLADE_WORK_PC\SQL2008R2EXPR;APP=Microsoft Office 2010;DATABASE=ProfServ_base_1.1SQL"

strConn = "DRIVER=SQL Server;SERVER=DCS\DCS;Trusted_Connection=Yes;APP=Microsoft Office 2010;DATABASE=ddc"

Set conn = New ADODB.Connection
strConn = "DRIVER=SQL Server;SERVER=DCS\DCS;Trusted_Connection=Yes;APP=Microsoft Office 2010;DATABASE=ddc"
conn.Open strConn

Set conn = New ADODB.Connection
strConn = "File Name=c:\myDataLinkFile.udl"
conn.Open strConn

    Dim group, strSQL As String
    Set rs = New ADODB.Recordset
    strSQL = "SELECT TOP 1 group FROM AUTH WHERE login = '" & Me.fld_login & "'"
    group = WinAccess.Connection.Execute(strSQL).Fields(0)
    If group = "Администратор" Then
        btn_Adminka.Visible = True
    Else
        btn_Adminka.Visible = False
    End If

btn_Adminka.Visible = (WinAccess.Connection.Execute(strSQL).Fields(0) = "Администратор")

strSQL = "SELECT TOP 1 [group] FROM AUTH WHERE login = '" & Me.fld_login & "'"

strSQL = "SELECT TOP 1 [group] FROM AUTH WHERE login = '" & Me.fld_login & "'"

dim grp, fld1, fld2
strSQL = "SELECT TOP 1 [group], [поле1], [поле2] FROM AUTH WHERE login = '" & Me.fld_login & "'"
with WinAccess.Connection.Execute(strSQL)
  grp=.Fields(0)
  fld1=.Fields(1)
  fld1=.Fields('поле2')
End with

...
    with WinAccess.Connection.Execute(strSQL)
            if not (.BOF And .EOF) then
                ПерваяПеременная=.Fields("group")
                ВтораяПеременная=.Fields(1)
                ТретьяПеременная=.Fields(2)
                ...
            End if
        .Close
    End with
...