VB怎么提交数据到access

来源：百度知道 编辑：UC知道 时间：2024/06/08 12:29:55
我做了一个VB通讯录,我姓名那用了 text控件 然后控件名是 text1 还有一个command value是提交
我在text1里面输入我的信息后 然后点提交
将text1里的内容保存到我的数据库---note.mdb里面的page表里面的 姓名字段里面
这个代码应该怎么写啊?

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\note.mdb;Persist Security Info=False"
rs.Open "select * from page", cnn, adOpenDynamic, adLockPessimistic
rs.AddNew
rs("姓名") = Trim(Text1.Text)
rs.Update
End Sub