vb登录界面的问题

Private Sub Image1_Click()
If Text1.Text = "" Then
MsgBox "请输入管理员名！"
Text1.SetFocus
Else
If Text1.Text <> Data1.Recordset.Fields("管理员名") Then
MsgBox "管理员名错误！重新输入。"
Text1.SetFocus
Text1.Text = ""
Else
If Text2.Text = "" Then
MsgBox "请输入密码！"
Text2.SetFocus
Else
If Text2.Text <> Data1.Recordset.Fields("密码") Then
MsgBox "密码错误！请重新输入。"
Text2.SetFocus
Text2.Text = ""
Else
界面.Show
Unload Me
End If
End If
End If
End If
End Sub

Private Sub Image2_Click()
Unload Me
End Sub
使用data连接数据库文件，在vb环境下运行正常。打包安装后登录总是从原程序目录找数据库文件，如果该文件被移动了就提示错误。安装目录下明明有数据库文件的。
请指点一下。