VBA Sharepoint connection - error while exporting data from Sharepoint to Excel file

Question

I\'m trying to get item list from Sharepoint by below code to Excel workbook. I getting error in line rst.Open mysql, cnt, adOpenForwardOnly, adLockReadOnly