<Access - VB>

Люди!!!! Как связать небольшой датенбанк в <Access> с <Visual Basik>, пробую по примерам из Кофлер (а), но что то упускаю и получаю постоянно ошибку, забыл но два года назад связывал.
Great lovers don't need big cars!

например через DAO:
Dim db As dao.Database
Dim rs As dao.Recordset
Set db = dao.OpenDatabase("п:олный\путь\к\базе\имя_,файла_базы.mdb")
Set rs = db.OpenRecordset("какой-то SQL-запрос")
....
rs.close
Set rs=Nothing
db.close
Set db=Nothing
Ну и библиотеку к пректу соответствующую не забудь подключить

вот именно при подключении к проекту мне пишет, что адресс слишком длинный - я пишу его полностью: <D:\Beispiel\Datenbank\Drittprodukte.mdb>
пробовал
<Private Sub DataEnvironment_Initialize()
DataEnv.adressConnect.Properties("Data Source").Value = App.Path + "\Drittprodukte.mdb"
End Sub>
тоже даёт ошибку - похоже надо всё повторять сначала
Great lovers don't need big cars!

Я тут код полностью писать не буду, скажу только что пользуюю для этих целей не DAO а ADO, примеров кода вот здесь навалом http://www.activevb.de/startseite/index.html
Снаряды носите бережно - пусть вас видят, а не помнят!
http://www.urasbajew.de

Да похоже надо взять пару дней отпуска и всё повторят, наскоком я тут похоже ничего не сделаю
Great lovers don't need big cars!

Нашёл ошибку! Может другим понадобиться: <Provider Typ> не <Microsoft Jet 3.51 OLE DB> как в примерах у Кофлера, а <Microsoft Jet 4.0 OLE DB> и всё пошло!!!!!
Great lovers don't need big cars!

Ну это зависит от того какой движок ДБ стоит, так что некоторым может и тот вариант подойти.
Снаряды носите бережно - пусть вас видят, а не помнят!
http://www.urasbajew.de