VB中的数据保存到ACCESS的问题

[fnhghdyygtwzg]

Private Sub Text3_Change()
Dim Sql As String, S As String
S = Text4.Text
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"
'请将路径换成你的数据库位置
Sql = "select * From 表1"
Rs.Open Sql, Conn, 1, 3
Rs.AddNew
Rs(0) = S
Rs.Update
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub

Private Sub Text4_Change()
Dim Sql As String, S As String
S = Text4.Text
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"
'请将路径换成你的数据库位置
Sql = "select * From 表1"
Rs.Open Sql, Conn, 1, 3
Rs.AddNew
Rs(1) = S
Rs.Update
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub





我要把TEXT3和TEXT4显示在同一记录中
这个代码哪有问题，他们不显示在同一记录里

[penguinhzf]

两种方法,第一是在下面内容中加入数据.........

Private Sub Text4_Change()
Dim Sql As String, S As String
S = Text4.Text
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"
'请将路径换成你的数据库位置
Sql = "select * From 表1" '在这里添加TEXT3新建内容的一些特定查询吧
Rs.Open Sql, Conn, 1, 3
Rs.AddNew
Rs(1) = S
Rs.Update
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub

第二种是,用一个按钮来保存TEXT3和TEXT4中的内容到相关的字段里

[fnhghdyygtwzg]

http://www.programbbs.com/bbs/view21-20386-1.htm
谢谢你的回复，但我还是不太明白，你到这里看一下，可能会更加了解我的问题。小弟过去没学过这些方面的内容，现在要做毕业设计的~！