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

Question

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 SubPrivate 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显示在同一记录中
这个代码哪有问题，他们不显示在同一记录里

Answer 1

两种方法,第一是在下面内容中加入数据.........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中的内容到相关的字段里

Answer 2

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