ERROR - VBA Object doesnt support this property or method - excel

Question

Im trying to show the data from my database which is MS Access into my listview in VBA, but im getting that error. If i add this code "sh.Range("A2").copyfromrecorset rst" it shows the same error but if I remove that it works fine, but i think that code enable me to right under the header of the excel Anyone please help me? Thanks!
Sub List_Box_Data()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Support")
sh.Cells.ClearContents
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim qry As String, i As Integer
Dim n As Long
If Me.cb_filter.Value = "ALL" Then
qry = "Select * FROM TBL_CA"
ElseIf Me.cb_filter.Value = "Status" Then
qry = "Select * FROM TBL_CA Where " & Me.cb_filter.Value & " LIKE '%" & Me.tb_search.Value & "%'"
End If
cnn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.ACCDB"
rst.Open qry, cnn, adOpenKeyset, adLockOptimistic
sh.Range("A2").copyfromrecorset rst
For i = 1 To rst.Fields.Count
sh.Cells(1, i).Value = rst.Fields(i - 1).Name
Next i
rst.Close
cnn.Close
'========================================
With Me.data_list
.ColumnCount = 10
.ColumnHeads = True
.ColumnWidths = "50,50,50,100,50,50,50,100,100,100,100,100,50,"
n = sh.Range("A" & Application.Rows.Count).End(xlUp).Row
If n > 1 Then
.RowSource = "Support!A2:N" & n
Else
.RowSource = "Support!A2:N2"
End If
End With
If (n - 1) < 2 Then
Me.lbl_record_count.Caption = (n - 1) & " Record"
ElseIf (n - 1) > 1 Then
Me.lbl_record_count.Caption = (n - 1) & " Records"
End If
End Sub