Excel VBA 连接SQLserver数据库

Private Sub CommandButton1_Click()
    Set Cnn = CreateObject("ADODB.Connection")
    Set Rs = CreateObject("ADODB.Recordset")
    Cnn.ConnectionString = "Provider=SQLOLEDB;Server=192.168.xx.xx;Persist Security Info=True;User ID=xxxx;Password=xxx;Initial Catalog=DBName"
    Cnn.Open
    SQL = "select * from student "
    Set Rs = Cnn.Execute(SQL)
    With Sheet1
    .Range("a2").FillDown Rs
     .Cells.EntireColumn.AutoFit
    End With
End Sub