连接代码
+++++++++++
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cm As New ADODB.Command
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=clgl;Data Source=" & 服务器ip
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select getdate()", cn, adOpenDynamic, adLockBatchOptimistic
msgbox rs.fields(0)
cn.close
set cn=nothing