Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim QD As DAO.QueryDef
Dim TB As DAO.TableDef

Dim basa As String: basa = "имя_базы" ' без расширения
Dim sSQL As String: sSQL = "SELECT * From  " & basa & " WHERE POLE = 'Деталь' ORDER BY OIZ"

'присоединю базы dbf к tmp.mdb
Set DB = DBEngine.Workspaces( 0 ).CreateDatabase(App.Path & "\tmp", dbLangCyrillic)

Set TB = DB.CreateTableDef(basa)
TB.Connect = "dBase III;DataBase=" & App.Path
TB.SourceTableName = basa
DB.TableDefs.Append TB
Set TB = Nothing

DB.Close:   Set DB = Nothing

Set DB = OpenDatabase(App.Path & "\tmp", True)
Set RS = DB.OpenRecordset(sSQL, dbOpenSnapshot)

    If Not RS.EOF Then
        RS.MoveLast
        MsgBox RS.RecordCount
    End If


RS.Close
Set RS = Nothing
Set QD = Nothing
DB.Close
Set DB = Nothing