Сейчас это работает так:
' Открываем Базу_Источник и Рекордсет_Источник
Set srcBase = DAO.OpenDatabase(srcMainPath, False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")
Set srcRS = srcBase.OpenRecordset("SELECT поле1, поле2 FROM " & srcFile & """")
' Открываем Базу_Приемник и Рекордсет_Приемник
Set dstBase = DAO.OpenDatabase(dstMainPath, False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")
Set dstRS = dstBase.OpenRecordset("SELECT поле1, поле2 FROM " & dstFile & """")
dstRS.MoveLast
dstRS.MoveFirst
srcRS.MoveLast
srcRS.MoveFirst
MsgBox srcRS.RecordCount
MsgBox dstRS.RecordCount
Do Until srcRS.EOF
dstRS.MoveFirst
Do Until dstRS.EOF
Select Case srcRS.Fields("поле1")
Case Is = dstRS.Fields("поле1")
dstRS.Edit
dstRS.Fields("поле2") = srcRS.Fields("поле2")
dstRS.Update
End Select
dstRS.MoveNext
Loop
srcRS.MoveNext
Loop
Приблизительный размер источника 20 тыс приемника от 10 до 1000 если мне конечно не лениво покурить 20-30 мин. но хотелось бы узнать как это можно оптимизировать.
Заранее спасибо всем откликнувшимся!!!!!!!