Как обойти/исправить ошибку "Method 'CopyFromRecordset'

[ForYou]

Код: Выделить всё

Public Sub ShowDB(Table)
Dim Query, Element As String, i, j, NumRows As Integer
ClearCells "A10", ActiveCell.SpecialCells(xlLastCell).Address

Query = "SELECT * FROM " & Table
Set rs = New ADODB.Recordset
rs.LockType = adLockPessimistic
rs.CursorLocation = adUseClient
rs.Source = Query
Set rs.ActiveConnection = Conn
rs.Open

If rs.RecordCount < 1 Then GoTo MyError

rs.MoveFirst
For i = 0 To (rs.Fields.Count - 1) Step 1
Cells(10, (i + 1)) = rs.Fields(i).Name
Next i
Range("A11").CopyFromRecordset rs
rs.Close
Exit Sub

MyError:
MsgBox "Selected table `" & UserTable & "` is empty", , "Information"
rs.Close
End Sub

Подскажите пожалуйста, как обойти/исправить ошибку "Method 'CopyFromRecordset' of object 'Range' failed?

[GSerg]

А кто будет мануал читать?

Copies the contents of a DAO Recordset object onto a worksheet, beginning at the upper-left corner of the specified range. If the Recordset object contains fields with OLE objects in them, this method fails.