主题：判断语句

Dim khm As  WinForm.TextBox=e.Form.Controls("kehuxingmingtext")
Dim sfzh As WinForm.TextBox = e.Form.Controls("shenfenzhenghaoTextBox")
If khm.text=Nothing Then
    msgbox("客户姓名不能为空!请验证.")
    khm.Select
Else
    If khm.text <> Nothing Then
       
        If ValidPIN(sfzh.text)=False Then
            msgbox("身份证号输入不合法!请验证.")
            sfzh .Select
        Else
            DataTables.Save
            Tables("客户资料").position = 0
            e.Form.Controls("kehuruku").Enabled=False
            e.Form.Controls("shujudaohang").Enabled= True
            e.Form.Controls("shujucaozuo").Enabled=True
            e.Form.Controls("quedingxiugai").Enabled= False
            e.Form.Controls("quedingxiugai").text="确定修改"
            e.Form.Controls("quxiaoxiugai").Enabled=False
            e.Form.Controls("xiugaishuju").Enabled=True
            e.Form.Controls("tianjiashuju").Enabled=True
        End If
    End If
End If

这句代码对吗？运行前后怎么不是想要的结果呀？

想实现：首先判断客户名不能为空，如非空值，再对非空值的身份证号码进行判断身份证号码合法则保存数据。也就是说身份证号码可以是空值不能为非法值入库。