VB6.0使用ADO连接Access2003数据库

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 A衡痕贤伎s 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