使用VBA在Excel中查询SQL Server表

I'm trying to query a table in Microsoft Excel using VBA. I've written up some code to try and accomplish this task, but I keep getting an error:I'm trying to query a table in Microsoft Excel