Dim cn As New ADODB.Connection
connstr = "provider=sqloledb;data source=star;database=renminmeishu;user id=sa;password=;"
cn.Open connstr
Dim rs as New Adodb.Recordset
rs.open"select * from table",cn,1,3
'使用ODBC连接
′工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll)
Dim Constr As String ′ODBC路径
Dim ADOCon As New ADODB.Connection ′ADODB Connection对象
Dim ADORst As New ADODB.Recordset ′ADODB Recordset 对象