Пример перевода 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

    Set conn = Nothing
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=D:\!!!_work\!_Prof-Service\ACCESS-DB\!_PofServ_access\ProfServ_base_1.0.accdb;Uid=Admin;Pwd=;"
    strSQL = "SELECT passwd FROM AUTH WHERE login = '" & Me.field_login & "'"
    passwd.Open strSQL, conn
    MsgBox passwd
    conn.Close
    Set conn = Nothing

conn.Open

    Dim conn As ADODB.Connection, rs As ADODB.Recordset, strSql, strConn
'    Set conn = Nothing
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    strConn = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=D:\!!!_work\!_Prof-Service\ACCESS-DB\!_PofServ_access\ProfServ_base_1.0.accdb;Uid=Admin;Pwd=;"
    conn.Open strConn
    strSQL = "SELECT passwd FROM AUTH WHERE login = '" & Me.field_login & "'"
    rs.Open strSQL, conn
    MsgBox rs(0)
    conn.Close
    Set conn = Nothing

    Dim strSQL, strConn As String
    Set conn = Nothing
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    strConn = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=D:\!!!_work\!_Prof-Service\ACCESS-DB\!_PofServ_access\BASE\ProfServ_DB.accdb;Uid=Admin;Pwd=;"
    conn.Open strConn
    strSQL = "SELECT group FROM AUTH WHERE login = '" & Me.fld_login & "'"
    rs.Open strSQL, conn
    auth_group = rs(0)
    conn.Close
    Set conn = Nothing
    MsgBox auth_group

?dir("D:\!!!_work\!_Prof-Service\ACCESS-DB\!_PofServ_access\BASE\ProfServ_DB.accdb")

Set rs = conn.Execute(strSQL)

Dim conn As ADODB.Connection, rs As ADODB.Recordset, strSql, strConn

Option Compare Database
Option Explicit
Public login_name, AllArgs, form_name, auth_group, user_edit As String
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset

    Dim strSQL, strConn As String
    Set conn = Nothing
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

Private Sub btn_enter_Click()
 Dim passwd, strSQL, strConn As String
 If IsNull(fld_login.Value) = True Then
  MsgBox "Enter LOGIN please!"
 ElseIf IsNull(fld_passwd.Value) = True Then
  MsgBox "Enter PASSWORD please!"
  Else
    Set conn = Nothing
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    strConn = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=D:\!!!_work\!_Prof-Service\ACCESS-DB\!_PofServ_access\BASE\ProfServ_DB.accdb;Uid=Admin;Pwd=;"
    conn.Open strConn
    strSQL = "SELECT passwd FROM AUTH WHERE login = '" & Me.fld_login & "'"
    rs.Open strSQL, conn
    passwd = rs(0)
    conn.Close
    Set conn = Nothing
    If passwd = Me.fld_passwd Then
        login_name = Me.fld_login
        DoCmd.OpenForm "WORK"
        DoCmd.Close acForm, "AUTH_START", acSaveYes
    Else
        MsgBox "Password do not match!"
        Me.fld_passwd = ""
    End If
 End If
End Sub