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