vb6.0怎么用一个变量的变化来触发记录数据保存到数据库？

vb6.0怎么用一个变量的变化0到1来触发记录数据保存到数据库？现在用手动按钮来触发的
Private Sub Command5_Click()
    Dim cn As New ADODB.Connection '
    Dim rst As New ADODB.Recordset '
    Dim SqlStr As String '声明一个字符串变量
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "Select * From 表1"
    rst.CursorLocation = adUseClient '设置游标位置
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
    rst.AddNew
    rst.Fields("编号").Value = Text3.Text '修改记录集中第一条记录"编号"字段的数值
    rst.Fields("vb3").Value = Text1.Text '修改记录集中第一条记录"VB3"字段的数值
    rst.Fields("vb4").Value = Text2.Text '修改记录集中第一条记录"VB4"字段的数值
    rst.UpdateBatch '提交，就是写到硬盘的数据库文件
    rst.Close '关闭记录集
    Set rst = Nothing '释放
    cn.Close '关闭连接
    Set cn = Nothing '释放
    End Sub                     谢谢大家！！！