通过应用ADO建立与Access2003的连接，并显示数据。
工具/原料
1
Visual Basic 6.0 简体中文企业版(SP6)
2
Microsoft Office 2003
方法/步骤
1
新建一个标准工程，创建一个新窗体，默认的“名称”属性为Form1
2
引用ADO对象。选择Visual Basic菜单中的“工程”/“引用”命令，然后选中Microsoft ActiveX Data Objects 2.5 Library复选框，单击“确定”按钮，此时，ADO对象群中的Connection、Rrcordset、Command和Fields等对象成为程序可以引用的对象。
3
在Form1窗体上添加一个CommandButton控件，设置其Caption属性为“退出”。
4
在Form1窗体上添加一个MSHFlexGrid控件，用于显示Access数据表中的数据。该控件属于ActiveX控件，使用前应先将其添加到工具箱中。
5
编写代码如下：Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & App.Path & '\db_medicine.MDB' rs.Open 'tb_kc', cn, adOpenKeyset, adLockOptimistic Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.ColWidth(0) = 100End SubPrivate Sub Command1_Click() EndEnd Sub