Sub Macro1() Dim cnn As New ADODB.Connection Dim mydata As String, myTable As String, SQL As String mydata = "TEST" myTable = "Table1" With cnn.ConnectionString = "Provider=SQLOLEDB.1;" _& "User ID=sa;" & "Data Source=THTFCOMPUTER;" _& "Initial Catalog=" & mydata.Open End With SQL = "select 数量 from