ник: ovr
ты не создала подключение к базе
при загрузке формы должен выполнится код
dim my_DBConn As ADODB.Connection
Dim db_file As String
' Пишем строку пути к твоей базе.
db_file = App.Path
If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
db_file = db_file & "изменение срока назначения дела 2000.mdb"
' Открываем соединение с базой.
Set my_DBConn = New ADODB.Connection
my_DBConn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
'теперь подключились к базе
Вперед (если что пиши) 