向vb高手请教

系统登陆，输入用户名和密码后出现编译错误：加载DLL错误
请VB高手看看下面源代码哪里出错了？谢谢

Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名或密码不能为空!", vbOKOnly + vbExclamation + vbDefaultButton1, "输入错误"
Else
Dim msg, p1, p2
msg = Text1.Text
msg = "用户名 like '" & msg & "'"
Data1.Recordset.FindFirst msg
p1 = Data1.Recordset.NoMatch
msg = Text2.Text
msg = "密码 like '" & msg & "'"
Data1.Recordset.FindFirst msg
p2 = Data1.Recordset.NoMatch
If p1 Or p2 Then
MsgBox "用户名或密码错误!", vbOKOnly + vbExclamation, "错误"
Text1.Text = ""
Text2.Text = ""
Else
form_flash.Show
Unload Me
End If
End If
请问如何修改？

向vb程序高手请教 我有一道VB程序题向高手请教一下 向众VB高手请教一个无聊的问题 VB时钟编码错了,向高手请教 向VB高手求救！！！！！！！！！！！！！！！！！！！！！！！！！！！ 请教VB高手 请教各位VB高手 请教vb高手 请教:VB高手进 请教一下vb高手