如何在VB中引用ADO

ADO Data控件是ActiveX控件，在使用前必须先将其添加到工具箱中。方法是：

“工程”—“部件”菜单选项，选中“Microsoft ADO Data Control 6.0（OLE DB）”后，按“确定”，

此时ADO数据控件便出现在工具箱中。

使用ADO 对象模型访问数据库。为了能够在程序中使用ADO对象编程，在连接数据库前，需要在Visual Basic 6.0菜单 “工程”—“引用”中选择Microsoft ActiveX Data Objects 2.8 Library组件。

要在VBA编程中调用ADO对象，实现Excel与数据库的沟通，.需要在VB编辑器中设置【引用】。通常需要设置的几个选项为:Microsoft ADO Ext 2.x for DDL and Security ·Microsoft ActiveX Data Objects (Multi-dimensional) 2.x Library .Microsoft ActiveX Data Objects Recordset 2.x Library .Microsoft ActiveX Data Objects 2.x LibraryMicrosoft Jet and Replication Objects 2.x Library设置的步骤为: (1)打开Excel文件，按下Alt+FI I组合键，进入VB编辑器。(2)选择主菜单【工具】l【引用】选项，打开如图6.12所示对话框.(3)选择以上提到的选项。单击【确定】按钮。说明:时于不同版本的选取最断的引用选项。Excel，有关ADO的引用选项可能不同.应该根据实际情况通过以上步骤，就可以在VBA中引用ADO对象了。

ADODB 是 Active Data Objects Data Base 的简称，它是一种存取数据库的中间组件。Dim cn As New ADODB.Connection'定义个新的adodb的数据源（connection）

Dim rs As New ADODB.Recordset'定一个用来读取数据的recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db_medicine.MDB"'打开数据库地址和一些配置参数

rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic'打开数据的表，后面两个是打开的方式，具体参数你可以查资料

Set MSHFlexGrid1.DataSource = rs'绑定MSHFlexGrid1数据源为刚才查询出来的数据

MSHFlexGrid1.ColWidth(0) = 100'设置宽度。

---