在类中定义一局部连接对象变量。 Private mCnnDB As
New ADODB.Connection() 然后定义连接Access数据库的过程. Access
数据库用adUseClient指定，通过Microsoft.Jet.OLEDB数据访问方式访问数据库，Microsoft.Jet.OLEDB又有多种版本，其中4.0是最高版本，它能访问ACCESS
2000，所以这里的数据提供者指定为Microsoft.Jet.OLEDB.4.0。指定了本地数据库和提供者后，就可打开一个数据库了，用open方法实现。完整的代码如下：
'作用: 连接Access数据库 '参数: DBName 数据库名 Public Sub
ConnAccess(ByVal DBName As String) Dim strDB As
String mCnnDB.CursorLocation = adUseClient mCnnDB.Provider =
"Microsoft.Jet.OLEDB.4.0" mCnnDB.Open(DBName, "Admin") End
Sub 在ODBC中设置DNS,在下面的ConnectionString中指定用户名和密码，最后用open方法打开。由于ODBC分有用户名和无用户名两者，我们必须分别实现，借助类的函数名重载功能，我们编写两个同名的过程，完整的代码如下：
'作用: 连接ODBC数据库(不需指定用户和密码 ) '参数：dsnName为ODBC名 Public Sub
ConnODBC(ByVal dsnName As String) mCnnDB.Provider = "MSDASQL"
mCnnDB.ConnectionString = "Data Source='" & dsnName &
"'" mCnnDB.Open() End Sub
'作用: 连接ODBC数据库(需指定用户和密码
) '参数：dsnName ODBC名,UserID 用户名，UserPwd 用户密码 Public Sub
ConnODBC(ByVal dsnName As String, ByVal UserID As String, ByVal UserPwd As
String) mCnnDB.Provider = "MSDASQL" mCnnDB.ConnectionString = "Data
Source='" & dsnName & "'User ID='" & UserID & "';" &
_ "Password='" & UserPwd & " mCnnDB.Open() End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
