我用vb做的系统，运行时提示找不到工程或库，下面红色部分是运行失败后高亮显示部分，高手帮帮忙吧！

Question

Dim loginno As Integer
Private Sub cmdOkCancel_Click(Index As Integer)
Select Case Index
Case 0
'On Error Resume Next

'检测txtuser控件
If Trim(txtuser.Text) = "" Then
MsgBox "用户名不能为空！", vbQuestion
txtuser.Text = ""
txtuser.SetFocus
Exit Sub
End If

If InStr(1, Trim(txtuser.Text), "'", 1) Then
MsgBox "用户名中不能包含'号！", vbQuestion
txtuser.Text = ""
txtuser.SetFocus
Exit Sub
End If

Userid = Trim(txtuser.Text)
Userpwd = MD5(Trim(txtPassword.Text))

sqlstr = "select * from UserInfo where UserID='" & Userid & "'"
rs.Open sqlstr, con, 1, 1

If Not rs.EOF Then
If rs("UserPWD") <> Userpwd Then
'密码错误时
MsgBox "您输入的密码不正确！", vbQuestion
Me.Caption = "请输入用户名和密码："

loginno = loginno + 1

'当错误的密码次数达到3次时，不能登陆，退出！
If loginno = 3 Then
MsgBox "对不起，您不能使用该系统！请与管理员联系。", vbInformation
Unload Me
Exit Sub
End If
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus
Else
LoginUser = Userid
LoginPower = rs.Fields(3)
Unload Me
frmflash.Show
End If
Else
MsgBox "没有您输入的用户名！", 32
txtuser.SelStart = 0
txtuser.SelLength = Len(txtuser.Text)
txtuser.SetFocus
End If

rs.Close: Set rs = Nothing
Case 1
Unload Me
End Select
End Sub

Private Sub Form_Load()
loginno = 0
Me.Show
txtuser.SetFocus
txtuser.Text = "Administrator"
txtPassword.Text = "Administrator"
End Sub

Answer 1

很明显,你没有声明RS和CON这两个对象
先引用 : Microsoft Activex Data Objects 2.1 Library .在“工具”-->“引用”，打开引用对话框

然后在代码最前面(最上面,不在任何事件下)写上这两句话
Dim CON As New ADODB.Connection
Dim rs As New ADODB.Recordset

Answer 2

Userpwd = MD5(Trim(txtPassword.Text))
MD5函数是哪里来的？如果是外部的DLL，需要在工程（模块）里做函数声明。

有数据库的访问，需要在工程里引用数据库控件。工程-引用，选择“Microsoft ActiveX Data Objects 2.0 Library”来自：求助得到的回答

Answer 3

有数据库、有MD5函数、有文件输入输出，你没凑齐所有的东西，能运行起来才怪。特别是数据库，兼容问题很麻烦。

再有，百度这里发帖不能自定义文字颜色。看不到你说的红色字....

Answer 4

可以做到，等我写好了给你。