1 Private Sub cmdAdd_Click()  2     res = MsgBox("确定要添加这条记录吗？", vbYesNo + vbQuestion, "添加记录")  3     If res = vbYes Then  4         myres.AddNew  5         myres.Fields("1") = TextBox11.Value  6         myres.Fields("2") = TextBox22.Value  7         myres.Fields("3") = TextBox33.Value  8         myres.Fields("4") = ComboBox1.Value  9         myres.Fields("5") = ComboBox2.Value 10         myres.Fields("6") = ComboBox3.Value 11         myres.Update 12         TextBox44.Value = "共有 " & myres.RecordCount & " 條記錄!" 13     ElseIf res = vbNo Then 14         If myres.BOF = True And myres.EOF = True Then 15             Exit Sub 16         Else 17             myres.MoveFirst 18             Call display 19         End If 20     End If 21 End Sub 22 23 24 Private Sub cmdDel_Click() 25     res = MsgBox("确定要刪除这条记录吗？", vbYesNo + vbQuestion, "刪除记录") 26     If res = vbYes Then 27         myres.Delete 28         If myres.EOF = True Then Exit Sub 29         myres.MoveNext 30         myres.Update 31         Call display 32         TextBox44.Value = "共有 " & myres.RecordCount & " 條記錄!" 33     ElseIf res = vbNo Then 34         If myres.BOF = True And myres.EOF = True Then 35             Exit Sub 36         Else 37             myres.MoveFirst 38             Call display 39         End If 40     End If 41 End Sub 42 43 Private Sub cmdUpdate_Click() 44     res = MsgBox("确定要修改这条记录吗？", vbYesNo + vbQuestion, "修改记录") 45     If res = vbYes Then 46         myres.Fields("1") = TextBox11.Value 47         myres.Fields("2") = TextBox22.Value 48         myres.Fields("3") = TextBox33.Value 49         myres.Fields("4") = ComboBox1.Value 50         myres.Fields("5") = ComboBox2.Value 51         myres.Fields("6") = ComboBox3.Value 52         myres.Update 53         TextBox44.Value = "共有 " & myres.RecordCount & " 條記錄!" 54     ElseIf res = vbNo Then 55         If myres.BOF = True And myres.EOF = True Then 56             Exit Sub 57         Else 58             myres.MoveFirst 59             Call display 60         End If 61     End If 62 End Sub