Вопрос по подключеню БАЗЫ ДАННЫХ - VB

Формулировка задачи:

Подключаю БД к программе, все ок, на моем компьютере все работает. Переношу на другой компьютер он выдает ошибку: SYSTEM ERROR &H8007007E (-2147024770) не найден указанный путь. Базу подключаю так: Data1.DatabaseName = App.Path & "/database/db7.mdb" Data1.RecordSource = Doc Зарание благодарен за помощь)

Решение задачи: «Вопрос по подключеню БАЗЫ ДАННЫХ»

textual
                            Листинг программы 
                        

                            private sub cmd_save_click  ' Чего нибудь нажимаем
dim sql as string,cmd as strind
'cmd= "Provider=microsoft.jet.OLEDB.4.0;Data Source=" & db_path & ";Jet OLEDB:Database Password=1;"   'Если с паролем
 cmd= "Provider=microsoft.jet.OLEDB.4.0;Data Source="  & db_path      'Если без пароля
Set cn = New ADODB.connection: With cn: .ConnectionString = cmd: .Open: End With  'Устанавливаем подключение
Set rs = New ADODB.Recordset: With rs 'Открываем набор записей
sql="select * from Таблица" 'может быть любой SQL запрос
 .Open sql, cn, adOpenForwardOnly, adLockOptimisticend sub
 
     do while not .eof    ' Перебираем записи пока не закончаться
     list1.additem rs("Field")   'добавляем в список запись из базы 
    .movenext
     loop
 
   rs.close
end with
cn.close
set rs=nothing
set cn=nothing
end sub
                        