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

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


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

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


Option Explicit

Private cData As Connection
Private rData As Recordset

'查询条件
Private mySQL As String

Private Sub Command1_Click()
        mySQL = "Select * From Math Where num = " & " '" & Text1.Text & "'"

        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

                        Set rData = cData.Execute(mySQL)

                        While Not rData.EOF
                                List1.AddItem rData.Fields(0)
                                rData.MoveNext
                        Wend
                rData.Close
        cData.Close
End Sub