Private Sub Command24_Click()
 Dim strSQL As String
 If IsNull(订单追加!Label32) Or Label32 = "" Then
    MsgBox "请输入您的姓名！", vbCritical, "警告消息"
 If IsNull(订单追加!Label34) Or Label34 = "" Then
    MsgBox "请输入您的联系电话！", vbCritical, "警告消息"
 If IsNull(订单追加!特产名称_标签) Or 特产名称_标签 = "" Then
    MsgBox "请选择特产!", vbCritical, "警告消息"
 If IsNull(订单追加!Label6) Or Label6 = "" Then
    MsgBox "请输入订货数量！", vbCritical, "警告消息"
 If IsNull(订单追加!Label8) Or Label8 = "" Then
    MsgBox "请输入送货地址！", vbCritical, "警告消息"
 ElseIf Not IsNull(特产名称_标签 & Label6 & Label8 & Label32 & Label34) Then
    strSQL = "insert into 销售订单 （顾客姓名,顾客电话,特产名称,订货数量,顾客地址）"
    strSQL = strSQL & "values('" & 订单追加!Label32 & " ','" & 订单追加!Label34 & " ', '" & 订单追加!特产名称_标签 & " ','" & 订单追加!Label6 & " ', '" & Me!Label18 & " ')"
    DoCmd.RunSQL strSQL
    MsgBox "您已成功下单！", vbOKOnly, "成功"
 End If
End Sub
 为什么此过程会出现无效外部过程。求各位大佬解答~~