ник: Maxik
Нет я не думал что этим все ограничится!
Просто я не знал с чего начать, но вот кажется нарыл,
=======
Dim rst As ADODB.Recordset
Dim con As ADODB.Connection
Set rst = New ADODB.Recordset
Set con = Application.CurrentProject.Connection
rst.Open "БазаИсточник", con, adOpenDynamic
====
Теперь просто надо заменить, да?
А что делать с командой DoCmd.RunSQL и почему некоторые запросы не работают?
EXLORER что меня еще ожидает?