求前辈们帮解决！！！下面的代码能不能改成不需要密码进入？

Question

刚到公司之前编程序的人离职了，密码也没留下，只有源程序，怎么也不能进调试模式，下面是调试入口的代码，求帮忙看看可不可以改成不需要密码登录
Private Sub CmdCancel_Click()
mainM3.Image_ManualTest.Picture = LoadPicture(App.Path + "\test.ico")
Me.Hide
End Sub

Private Sub cmdOK_Click()
cn.Close
cn.Open

sql = "select * from 密码管理 "
rs_login.Open sql, cn, adOpenKeyset, adLockPessimistic

If Trim(rs_login.Fields(0)) = Trim(txtPassword.Text) Then
    DebugLogIn.Hide
    FormDebug.Show 1
Else
    txtPassword.Text = ""
    txtPassword.SetFocus

    WrongMessage.Caption = "密码错误"
    WrongMessage.Label1.Caption = "密码错误,请重试！"
    WrongMessage.Show 1
End If

End Sub

Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path + "\Password.ico")

txtPassword.Text = ""
End Sub

Answer 1

简单的改的话 把 if 后面改成 1 = 1 就能跑了

不准备看那么多的话 全部去掉 DebugLogIn.Hide
FormDebug.Show 1 留下这两句就行了