VBA如何连接SQL server 数据库？

'前期绑定
microsoft activex data objects 6.1 library 
Sub excel_vba_shujuku()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strcn As String
Dim mysql As String
Dim sl As New Dictionary
Sheet2.Range("a1").CurrentRegion.Clear
'连接数据库
    strcn = "Provider=sqloledb;Server=LAPTOP-FH2KUPM3;" & _
            "Database=数据库练习_表;Integrated Security=SSPI;" & _
            "Persist Security Info=False;"
    cn.Open strcn
'编辑并连接SQL语句
    mysql = "select * from 贫困户信息查询总"
    rs.Open mysql, cn
'数据输出
    '2、输出数据
        '①循环输出标题
            For i = 0 To rs.Fields.Count - 1
            Sheet2.Cells(1, i + 1).Value = rs.Fields(i).Name
            Next i
        '②复制输出数据
            Sheet2.Range("a2").CopyFromRecordset cn.Execute(mysql)
        '③循环输出数据
            arr = Application.Transpose(rs.GetRows)
    cn.Close
    Set cn = Nothing
End Sub