- Код: Выделить всё
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String
Set db = DAO.OpenDatabase("C:\hhh.xls")
На последней строке здесь выдает ошибку, что типа неизвестный формат базы данных. А как иначе не знаю, извините. Может, я, вообще все не так делаю?