刷卡时，当日领水会加1，点击更新数据，数据无法更新，也不提示。
但是在当日领水文本框内点一下，再在别的文本框点一下，数据自动更新，
搞不明白为什么。
主要是想解决单击更新数据之后，数据更新到数据库。
求各位大哥大姐大叔大婶帮帮忙！！！

'替换你所有代码，应该可以完成你所需要的
'写数据库程序还是不要用控件，不要用绑定，用ado代码完成吧，灵活、专业，可完成大项目
Private Sub Command1_Click()
    If Not IsNumeric(Text1) Then
      Text1 = 0
    Else
      Text1 = Val(Text1) + 1
    End If
End Sub

Private Sub Command2_Click()
    Dim a As Integer
    If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
    a = Val(Text1) + 1
    Adodc1.Recordset.AddNew
    Text1 = a
    If Not IsDate(Text2) Then Text2 = Date
    If Not IsDate(Text3) Then Text3 = Time
    Adodc1.Recordset.Update

End Sub

Private Sub Command3_Click()
    End
End Sub

Private Sub Form_Load()
    Text.Text = ""
End Sub

刚试过了，非常管用，谢谢版主了。