text的内容如何添加到数据库列

Question

数据库是access，text并没有连接数据库。text在程序里起到输入数据的作用，用DataGrid显示数据库的数据

Answer 1

插入数据无非是用AddNew或Insert into '引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs    '把记录集的记录显示到DataGrid1
    rs.AddNew
    rs.Fields("列1")="值1"
    rs.Fields("列2")="值2"
    rs.Fields("列3")="值3"
    '......
    rs.Update
End Sub用Insert into 语句的话这样写：
cn.Execute("insert into 表1 values('值1','值2','值3',......)")