Доброго всем времени суток !!!
Может кто-нибудь подсказать ???
MSSQL 2000, Access 2000, adp
В VB пытаюсь реализовать следующий код на открытие формы:

Private Sub Form_Load()
Dim vDB As Database
Dim vQuery As QueryDef
Dim vStrSQL As String

Set vDB = CurrentDb
vStrSQL = "select * from my_table"
Set vQuery = vDB.CreateQueryDef("") ' <-- на этой строке дает ошибку
vQuery.SQL = vStrSQL
vQuery.Execute
End Sub

Ругается:

"Object variable or With block variable not set"

Не пойму в чем дело :( Может в VB не ту библиотеку подключил (Tools-References) ???
Но вроде все возможные варианты ADO и DAO пробовал подключать - результат тот же.

Они есть в VB

Кажется, разобрался...
В adp нельзя использовать DAO. Нужно работать через ADO.

Private Sub Form_Load()
Dim RsNew As ADODB.Recordset
Set RsNew = New ADODB.Recordset
RsNew.Open "select id, name from table1", CurrentProject.Connection, adOpenStatic
End Sub