2、连接数据

　　在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图16所示。

　　
　　图16 引用ADO连接数据库

　　在程序设计的公共模块中，先定义ADO连接对象。语句如下:

　　Public conn As New ADODB.Connection 标记连接对象

　　然后在子程序中，用如下的语句即可打开数据库:

　　Dim connectionstring As String

　　connectionstring = "provider=Microsoft.Jet.oledb.4.0;" &_

　　"data source=book.mdb"

　　conn.Open connectionstring

　　3、设置ODBC

　　VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。

　　打开控制面板中的“管理工具”→“数据源”(ODBC)，出现如图17所示的对话框。

　　
　　图17 ODBC对话框

　　单击“添加”按钮，出现“创建新数据源”对话框，如图18所示。

　　
　　图18 “创建新数据源”对话框

　　选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图19所示对话框。

　　
　　图19 设置连接数据源

　　在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。