程序代码：

Private Sub cmd1_Click()
  Dim MESSAGE As String
'  Adodc1.RecordSource = "select * from ma where (ma.操作员  like " + Chr(34) + Combo1.Text + Chr(34) + ")"
'  Adodc1.Refresh
       Adodc1.RecordSource = "select * from ma where 操作员='" + Combo1.Text + "'"
       Adodc1.Refresh
       If Adodc1.Recordset.RecordCount > 0 Then
              If Combo1.Text <> "" And Trim(Text2.Text) = Trim(Text1.Text) Then
              frm_main.StatusBar1.Panels(2).Text = "当前系统用户：" & Trim(Combo1.Text)
              Name1 = Trim(Combo1.Text)
              frm_main.Check1.Value = Adodc1.Recordset.Fields("基本信息管理")
              frm_main.Check2.Value = Adodc1.Recordset.Fields("客户信息管理")
              frm_main.Check3.Value = Adodc1.Recordset.Fields("客户信息查询")
              frm_main.Check4.Value = Adodc1.Recordset.Fields("系统设置")
              Load frm_main
              frm_main.Show
              Unload Me
              Else
              MsgBox "没有此操作员的信息或者输入的密码错误,请您确认后重新输入"
              Text2.Text = ""
              Text2.SetFocus
              End If
       Else
            MsgBox "没有此操作员的信息或者输入的密码错误,请您确认后重新输入"
            Combo1.Text = ""
            Text2.Text = "'"
            Combo1.SetFocus
       End If
End Sub