工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=saletesttmp;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from sysfiles", CN, adOpenDynamic, adLockOptimistic
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库;User Id=用户名;Password=密码;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from sysfiles", CN, adOpenDynamic, adLockOptimistic