Recordset не работает Access 2007 VBA

Question

Я пишу код в Access VBA. Я сталкиваюсь с проблемой при использовании набора записей. Вот что я имею в первых строках моего кода:

Dim rst As Recordset 
Dim sql as String 

sql = "Select ........" 
Set rst = CurrentDb.OpenRecordset(sql, dbReadOnly) 

Программа терпит неудачу во второй строке «установлен первый = .....». Я добавил следующие ссылки: Visual Basic для приложений, Access 12.0 Библиотека объектов Microsoft, автоматизации OLE, Microsoft ActiveX Data Objects 2.8 Библиотека

Но программа все еще терпит неудачу во второй строке. Есть ли что-нибудь еще, что я должен сделать ??? Спасибо,

Answer 1

Currentdb - это код DAO, но вы заявляете, что у вас есть ссылка ADO. Удалите ссылку ADO и добавьте библиотеку объектов базы данных Microsoft Office 12.0 Access.

Если это были Access 2000, 2002 или 2003, я бы предложил добавить библиотеку объектов Microsoft DAO 3.6.