Доброго времени суток всем, кто это читает.

Возникла необходимость в написании небольшой программки на VB и я застрял на простом открытии mdb-файла и получения из него данных для дальнейшей сортировки.

вариант типа:

Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase(App.Path & "db1.mdb")
Set rs = db.OpenRecordset("SELECT * FROM name")
Do Until rs.EOF
ListBox1.AddItem rs.Fields("n1") & " " & rs.Fields("n2") & vbCrLf
rs.MoveNext
Loop

почему-то не срабатывает. ошибки на строке OpenRecordset.
Как это сделать правильно?
Какие условия должны быть соблюдены для работы программы?
Возможно проблема в подключении каких-либо модулей?

Плиз, помогите советом, как это сделать макс. быстро и просто.
Заранее спасибо.

Dim rs As DAO.RECORDSET работает. спасибо!