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 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) = 100

End Sub

Private Sub Command1_Click()

  End

End Sub