Подскажите что значите следующие ОБЪЕКТ MBD не найден ядром базы данных Microsoft Jet Проверьте существование файла и правильность имени и пути. база эта существует и создаётся программно а при обращении к ней выдаёт ошибку. Обращение производится через DAO

Создание БАЗЫ

Private Sub cmdCreate_Click()
'создаем объектные переменые для объектов
Dim dbWorkspace As Workspace
Dim dbDatabase As Database
Dim dbTableDef As TableDef
Dim dbName As Field
Dim dbNumber As Field
'создаем объекты DAO
Set dbWorkspace = DBEngine.Workspaces(0)
Set dbDatabase = dbWorkspace.CreateDatabase( _
"C:\BAZA.DBF", dbLangGeneral)
Set dbTableDef = dbDatabase.CreateTableDef("baza")
Set dbt = dbTableDef.CreateField("t", dbText)
Set dbp = dbTableDef.CreateField("p", dbText)
'определяем свойства полей
dbt.Size = 30
dbp.Size = 30
'добавляем каждый объект-поле к его объекту-таблице
dbTableDef.Fields.Append dbp
dbTableDef.Fields.Append dbt
'добавляем каждый объект-таблицу к его объекту - базе данных
dbDatabase.TableDefs.Append dbTableDef
'закрываем сформированную базу данных
dbDatabase.Close
End Sub

Option Explicit

'создаем объектные переменые для объектов
Dim dbWorkspace As Workspace
Dim dbDatabase As Database
Dim dbTable As Recordset
Dim dbName As Field
Dim dbNumber As Field

Private Sub cmdNext_Click()
'переходим к слудующей записи, только если текущая не пуста
If txtt.Text <> "" And txtp.Text <> "" Then
'сохраняем все изменения, внесенные в текущую запись
UpdateRecord
'переходим к следующей записи
dbTable.MoveNext
'формируем новую запись, если это конец таблицы
If dbTable.EOF Then NewRecord
'отображем данные из записи
DisplayFields
End If
txtt.SetFocus
End Sub

Private Sub cmdPrevious_Click()
'сохраняем все изменения, внесенные в текущую запись
UpdateRecord
'переходим к следующей записи
dbTable.MovePrevious
'выход за первую запись недопустим
If dbTable.BOF Then dbTable.MoveNext
'отображем данные из записи
DisplayFields
'сохраняем фокус на текстовом поле txtName
txtt.SetFocus
End Sub

Private Sub Form_Load()
'создаем объекты DAO
Set dbWorkspace = DBEngine.Workspaces(0)
'если нужно, измените путь к базе данных
Set dbDatabase = dbWorkspace.OpenDatabase( _
"C:\BAZA.DBF")
Set dbTable = dbDatabase.OpenRecordset("BAZA", dbOpenTable)
'если база данных совсем новая, используем особую обработку
If dbTable.BOF And dbTable.EOF Then NewRecord
'начинаем с первой записи
dbTable.MoveFirst
'отображаем ее данные
DisplayFields
End Sub

Private Sub NewRecord()
'добавляем новую запись
dbTable.AddNew
'втавляем пробел в каждое поле
dbTable!t = " "
dbTable!p = " "
'обновляем базу данных
dbTable.Update
'переходим к этой записи
dbTable.MoveLast
End Sub

Private Sub UpdateRecord()
'готовим таблицу к редактированию
dbTable.Edit
'копируем содержимое текстовых полей
'в соответсвующие поля записи
dbTable!Name = txtt.Text
dbTable!Number = txtp.Text
'обновляем базу данных
dbTable.Update
End Sub

Private Sub DisplayFields()
'отображем содержимое полей записи
'в текстовых полях на форме
txtt.Text = dbTable!t
txtp.Text = dbTable!p
End Sub

Спасибо работает!