VBA 连接数据库

点击Button控件 连接数据库（SQLServer） 取值赋值到sheet：“test”

source如下：

Private Sub ButtonUpd_Click()

  'Define object
  Dim conn As Object
  Dim rs As Object
  Set conn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.RecordSet")

  Dim strConn As String, strSQL As String
  Dim col As Integer

  'The String of connect Database.
  strConn = "Provider=sqloledb;Server=127.0.0.1;Database=TEST001;Uid=sa;Pwd=DBPassword;"
  
  'SQL language
  strSQL = "select * from T_TESTALL"

  'Open database.
   conn.Open strConn

  'Set the time of timeout.
   conn.CommandTimeout = 720
   
  With rs
    .Open strSQL, conn
    For col = 0 To rs.Fields.Count - 1

       Worksheets("test").Range("A1").Offset(0, col).Value = rs.Fields(col).Name

    Next

    Worksheets("test").Range("A1").Offset(1, 0).CopyFromRecordset rs
  End With
   
  'Destroy object.
  Set rs = Nothing
  conn.Close
  Set conn = Nothing

End Sub