Область видимости объекта

[Руслан]

preword: юзал поиск, ничего не нашел

Код: Выделить всё


public db as database
public qd as querydef
public rs as recordset

public sub main()
set db=openDatabase("db.mdb")
call sub1
end sub

sub sub1()
set qd=db.createQuerydef("","select * from table1")
end sub


в подпрограмме sub1 вылезает ошибка

Runtime error '3420'
Указан недопустимый объект или объект более не задан

хотя db определен как public и был задан заранее, в main()

[GSerg]

Код ошибки, больший 1000, говорит о том, что это ошибка объекта, а не vb. В частности, null reference имеет код 91.
3420 - adErrObjectNotSet из ADO. В коде юзается DAO. В ссылках проекта что добавлено?