ник: ovr
Нет не перед буквально а отдельной командой
вот так
Dim rs1 As New ADODB.Recordset
db_file = Disk & ":\fabrika\1\твой путь и имя базы 2000.mdb" ' App.Path
' Open the database connection.
Set my_DBConn = New ADODB.Connection
MsgBox db_file
my_DBConn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
Или укажи мне где она у тебя лежит