一定要清楚,打开记录集前要连接数据库,连接Connection请参考上一讲内容; Dim cnADO As New ADODB.Connection Dim strPath As String strPath = ThisWorkbook.Path & "\mydata.accdb" cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath 在打开记录集前还要做的工作有:声明Recordset对象,创建Recordset对象 Dim rsZYS As ADODB.Recordset Set rsZYS = New ADODB.Recordset rsZYS.Open "职员表", cnADO, 1, 3 MsgBox rsZYS.RecordCount rsZYS.Close cnADO.Close Set rsZYS = NothingSet cnADO = Nothing