详细代码如下(需要在程序中引用msado15.dll)
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TEST;Data Source=sy_server_tj1"
cn.Open
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from city"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic, adCmdText
Debug.Print rs.RecordCount
lq.han@263.net