Is there a better way than this to get data from SQL DB into Excel ?

[JumboCactuar]

Hi,
i currently use the following and add a reference to:

Works fine with SQL server, but if i use MYSQL it does sometimes crash and fails to connect.
Is there any better method ?

Public Function MyConnection()

    MyConnection = "Driver={SQL Server};Server=xxx;Database=xxx;Uid=xxx;Pwd=xxx;"
End Function

Sub GetData()

    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
     cnn.Open (MyConnection)
 
    SQLquery = "SELECT * FROM TABLE1"
    
      rs.Open SQLquery, cnn
        
        Sheet1.Cells.ClearContents
        Sheet1.Range("A2").CopyFromRecordset rs
        
        rs.Close
        cnn.Close
    
    Set rs = Nothing
    Set cnn = Nothing
    
End Sub