VB+SQL教学管理系统哦rivate Sub cmdok_Click() Dim txtsql As String Dim mrc As ADODB.Recordset Dim msgtext As String If Trim(txtusername.Text) = "" Then MsgBox "请输入用户名称!", vbOKOnly, "警告" Exit Sub End If '判断输入的密码是否一致 If Trim(txtpassword1.Text) Trim(txtpassword2.Text) Then MsgBox "两次输入密码不一样,请确认!", vbOKOnly