求救。。。VB写的程序总是提示不对。。。“取消了前次的操作”。。。

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
If IsNull(Me.Text0) Then
MsgBox "请输入用户帐号"
ElseIf IsNull(Me.Text1) Then
MsgBox "请输入密码"

Else
If Nz([Text1]) = Nz(DLookup("[pwd]", "user", "[username] = ('" & Text0 & "')")) _
And Me.Text0 <> "" Then
Me.TimerInterval = 0 '关闭定时器
Me.Visible = False
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "导航窗体"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
MsgBox "用户名和密码错误", , "请重新输入"
MeText0.SetFocus

End If
End If
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Re

vb写的程序没加壳？ vb写程序的问题 VB高手还有吗？ VB小程序的问题求救 关于vb写程序的问题 调色板的VB程序怎么写啊？ VB写的程序怎样自启动？ 用vb写心理测试的程序 会写VB程序的来～ 用VB写的小程序 怎么破解vb写的程序？