【实例说明】
    不用控件，读取ACCESS2000表中的数据。

【编程思路】
    不用控件打开数据库。


【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上添加一个ListBox控件。
    3.建一个Access文件Data.mdb(Data.mdb中有一个Math表，Math表中有一个score字段)。
    4.添加一条记录：(score)22 (score)12...

    5.源程序  [素材源程序下载]


Option Explicit

Private cData As Connection
Private rData As Recordset

Private Sub Form_Load()
        Set cData = New ADODB.Connection
        Set rData = New ADODB.Recordset
        '打开方式，数据库地址
        cData.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\Data.mdb"
                '打开表名称，字段
                rData.Open "Select * From Math", cData, adOpenStatic, adLockOptimistic
                        While Not rData.EOF
                                List1.AddItem rData.Fields(0)
                                rData.MoveNext
                        Wend
                rData.Close
        cData.Close
End Sub