用追加查询添加记录，字段含空值，如何处理？

Private Sub Command14_Click()
If Not IsNull(Me.供应商全称) Then
Dim r As QueryDef
Dim sql As String
    If MsgBox("是否要添加一条记录？", vbOKCancel) = vbOK Then
        Set r = CurrentDb.QueryDefs("添加厂商")
        sql = "insert into 供应商 (供应商全称,供应商简称,地址,网址,电话,传真) values(""" + nz(Me.供应商全称) + """,""" + Nz(Me.供应商简称) + """,""" + Nz(Me.地址) + """,""" + Nz(Me.网址) + """,""" + Nz(Me.电话) + """,""" + Nz(Me.传真) + """)"
        r.sql = sql
        r.Execute
        MsgBox "添加成功！"
    End If
    DoCmd.Close
Else
  MsgBox "供应商全称不能为空！"
  Me.供应商全称.SetFocus
End If
End Sub
红色部分为修改部分。