ник: katerpeller
Решил...
Sub Кнопка0_Click()
On Error GoTo ErrorHandler
Dim wrkAcc As Workspace
Dim dbsNorthwind As Database
Dim test1 As QueryDef
' Создаем Microsoft Access Workspace object.
Set wrkAcc = CreateWorkspace("", "admin", "", dbUseJet)
' Открываем базу с запросом
Set dbsNorthwind = wrkAcc.OpenDatabase("C:\say.mdb", _
True)
Set test1 = dbsNorthwind.QueryDefs("test1") ' запрос в базе с запросом %)
test1.Parameters(0).Value = CDate("01.06.2010") ' присваиваем значения параметра запроса
1: test1.Execute ' выполняем этот самый запрос
dbsNorthwind.Close
wrkAcc.Close
Exit Sub 'завершаем программу, чтобы не натыкаться постоянно на ErrorHandler:
ErrorHandler: 'Если таблица SAY уже есть, то удаляем её
If Err.Number = 3010 Then
Dim dbs As Object, strSQL As String
Set dbs = CurrentDb
strSQL = "DROP TABLE SAY;"
dbs.Execute strSQL
GoTo 1
End If
End Sub