通过自定义窗口，根据登录单位的代码，使系统只显示本单位数据，我在登录确定按钮的代码为：

Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    _Userdwdm = dr("dwdm")
    Dim tj As String = "dwdm=\'" & _Userdwdm &"\'"
    If _Userdwdm <> "10001"
        DataTables("jgxxb").loadfilter=tj
        DataTables("ryxxb").loadfilter=tj
        DataTables("llyjb").loadfilter=tj
        DataTables("kyxmb").loadfilter=tj
        DataTables("sjqkb").loadfilter=tj
       \' DataTables("dwdmb").loadfilter=tj
        DataTables("ryzktjb").loadfilter=tj

        DataTables("jgxxb").load
        DataTables("ryxxb").load
        DataTables("llyjb").load
        DataTables("kyxmb").load
        DataTables("sjqkb").load
       \' DataTables("dwdmb").load
        DataTables("ryzktjb").load

    End If
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

运行出现下面错误提示，但运行结果却是正确的，这是什么原因，请帮忙！

http://help.foxtable.com/topics/0106.htm