【实例说明】
    不用控件，在ACCESS2000表中添加数据。

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


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

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


Option Explicit

Private User As Recordset
Private cData As Connection
Private rData As Recordset

Private Sub Command1_Click()
        Set cData = New ADODB.Connection
        Set rData = New ADODB.Recordset

        cData.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=Data.mdb"
                rData.Open "Select * From Math", cData, adOpenStatic, adLockOptimistic

                        rData.AddNew
                        rData.Fields(0) = Text1.Text
                        rData.Update

                        MsgBox "新信息添加成功。", vbInformation, "Hint"

                rData.Close
        cData.Close
End Sub