VBA Class не поддерживает автоматизацию или не поддерживает ожидаемый интерфейс

Question

У меня есть этот код, пытающийся запросить базу данных MS SQL, но я получаю вышеуказанную ошибку в последней строке, любая помощь, пожалуйста

     'Declare variables'
Dim objMyConn As ADODB.Connection
 Dim objMyRecordset As ADODB.Recordset
    Set objMyConn = New ADODB.Connection
    Set objMyRecordset = New ADODB.Recordset
    Dim strSQL As String

'Open Connection'
    objMyConn.ConnectionString = "connection string"
    objMyConn.Open

'Set and Excecute SQL Command'
    strSQL = "SELECT * FROM dbtable"

'Open Recordset'
    Set objMyRecordset.ActiveConnection = objMyConn
    objMyRecordset.Open strSQL

'Copy Data to Excel'
 (ERROR HERE-->)      ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset)