把Text中的内容自动加到Access中！怎么实现！ 谢了，各位老大

Question

   把Text中的内容自动加到Access中！怎么实现！ 谢了，各位老大！

Answer 1

    每四秒钟往Text中发送2个字符，字符传到Text中，并显示出来，然后我想把传到Text中
的字符，自动存到Access数据库中，然后清空Text,等待下一个字符的输入。就这样循环
下去。现在我存不上！！！

Answer 2

保存的就是这样了
Option Explicit
Private conn1 As ADODB.Connection
Private rs1 As ADODB.RecordsetPrivate Sub Command2_Click()
Dim dbfilename As String
Dim strsql As String
Dim ConnectString As String
Dim i As Integer
Set conn1 = New ADODB.Connection
dbfilename = App.Path & "\article1.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn1.Open ConnectStringSet rs1 = New ADODB.Recordsetstrsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3rs1.AddNew
rs1.Fields("mc") = Text1.Text
rs1.Fields("memo") = Text2.Text
rs1.Fields("sl") = 192.22
rs1.Update
End Sub