'第三个按钮，上传数据到数据库
Private Sub CommandButton1_Click()
str1 = "abcde"
str2 = InputBox("请输入一个字符串!")
 
If str1 = str2 Then
MsgBox "它们是一样的呀!"
Else
MsgBox "它们是不一样的!"
End If
End Sub

心有猛虎,细嗅蔷薇