ник: snipe
тормоза
именно на преобразовании
в первом блоке
Dim asd As String
For i = Me.Поле1 To Me.Поле3
For j = 1 To 6
asd = dfr.Cells(i, j)
dfr.Cells(i, j) = asd
Me.Поле6 = i
DoEvents
Next j
Next i
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("База2")
For i = Me.Поле1 To Me.Поле3
rs.AddNew
rs.Fields("f1") = dfr.Cells(i, 1)
rs.Fields("f2") = dfr.Cells(i, 2)
rs.Fields("f3") = dfr.Cells(i, 3)
rs.Fields("f4") = dfr.Cells(i, 4)
rs.Fields("f5") = dfr.Cells(i, 5)
rs.Fields("f6") = dfr.Cells(i, 6)
rs.Update
Next i
специально воткнул Me.Поле6 = i что бы видеть в каком месте находится обработка
ado\dao пока не приведешь к формату (нормальному) вываливается ошибка
а вот п. 2 сейчас попробую