Я пень

Me.ex.SetFocus
Dim rst As New ADODB.Recordset
Dim o As Excel.Worksheet
Set o = Me!ex.Object.Worksheets(1)
o.Cells(2, 3) = o.Cells(2, 3) + 1

rst.Open "cash", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

o.Range("A1").CopyFromRecordset rst


"Method 'CopyFromRecordset' of object 'Range' failed"

но записи копирует :)

Это понятно, но это как-то не этично...
типа в чем там дело?

последние штрихи: скажи, пожалуйста, как теперь удалить скопированную информацию???

Спасибо БОЛЬШОЕ!!!

ДЛЯ ЛЮБОЗНАТЕЛЬНЫХ:

Копирование информации в объект Excel.Worksheet на форме:
Private Sub btn1_Click()
On Error GoTo 6
Me.ex.SetFocus
Dim rst As New ADODB.Recordset
Dim o As Excel.Worksheet
Set o = Me!ex.Object.Worksheets(1)

rst.Open "cash", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

o.Range("A5").CopyFromRecordset rst

6:
Exit Sub
End Sub

Отчистка Worcksheet:
Private Sub btn2_Click()
On Error GoTo 6
Me.ex.SetFocus
Dim rst As New ADODB.Recordset
Dim o As Excel.Worksheet
Set o = Me!ex.Object.Worksheets(1)

o.Range("5:15000").Clear
6:
Exit Sub
End Sub