DAO与Access查询

Public Sub 例9_5()
    Dim myDb As DAO.Database
    Dim rs As DAO.Recordset
    Dim myData As String, myTable As String
    myData = ThisWorkbook.Path & "\客户管理.mdb"    '指定数据库
    myTable = "客户信息"    '指定数据表名称
    Set myDb = OpenDatabase(myData)    '创建数据库对象
    Set rs = myDb.OpenRecordset(myTable)    '创建指定数据表的记录集
    '判断数据库中是否有记录
    If rs.BOF = True And rs.EOF = True Then
        MsgBox "数据库中没有记录！", vbInformation
    Else
        MsgBox "数据库中有记录！记录数为" & rs.RecordCount, vbInformation
    End If
    '关闭记录集对象和数据库对象
    rs.Close
    myDb.Close
    '释放变量
    Set rs = Nothing
    Set myDb = Nothing
End Sub