如何使用VBA执行SQL语句

VBA执行SQL语句有一个固定的套路。
哪怕你连VBA代码一句都看不懂也没关系，只要知道在哪里写入SQL语句就可以了。
代码如下：

Sub DoSql_Execute()    
Dim cnn As Object, rst As Object    
Dim Mypath As String, Str_cnn As String, Sql As String    
Dim i As Long    
Set cnn = CreateObject("adodb.connection")    
Mypath = ThisWorkbook.FullName    
If Application.Version < 12 Then        
    Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath    
Else        
    Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath    
End If    
cnn.Open Str_cnn    
    Sql = "SELECT * FROM [学生表$]"              '//请在此处写入你的SQL代码    
    Set rst = cnn.Execute(Sql)    
    Cells.ClearContents    
    For i = 0 To rst.Fields.Count - 1        
        Cells(1, i + 1) = rst.Fields(i).Name    
    Next    
        Range("a2").CopyFromRecordset rst '    
    cnn.Close    
    Set cnn = Nothing
End Sub