VB中一个很简单和问题！

[ChinaKable]

请问如何用if....then...esle判断 :
combo1.text="" combo2.text="" combo3.text="" combo4.text="" combo5.text="" txtdate.text="" 中有一个为空时就弹出一个消息框！
例： msgbox"输入完整数据！"
else
就执行下面语句！

下面是我调试失败的代码！请指教！！！
说明：txtDate.Text为MaskEdBox的控件！我把txtDate 设为日期输入！为##/##/####
rs.Fields(5)为数据库中一个字段，设为日期类型！数据库为Access的！
rs.Fields(5) = txtDate.Text在这一句中出错说“类型不匹配！”
如何修正？

Private Sub CmdSave_Click(Index As Integer)
Dim rs As ADODB.Recordset
Set rs = executesql("select * from ExamineRecord")
If Combo1.Text = "" And Combo3.Text = "" And Combo2.Text = "" And _ Combo4.Text = "" And Combo5.Text = "" And txtDate.Text = "" Then _
MsgBox "请输入完整数据！"

Exit Sub
Else
rs.AddNew
rs.Fields(0) = Combo1.Text
rs.Fields(1) = Combo5.Text
rs.Fields(2) = Combo3.Text
rs.Fields(3) = Combo4.Text
rs.Fields(4) = Combo2.Text
rs.Fields(5) = txtDate.Text
rs.Update
MsgBox "考试报名登记成功！"
End If
rs.Close
End Sub

[ChinaKable]

怎么没人答呀？

[88391788]

分数太底了

[vbman2003]

1.将 If 语句中的 And 改成 Or
2.rs.Fields(1) = Format(Combo5.Text,"mm-dd-yyyy")

[ChinaKable]

vbman2003(家人) 谢谢你回答！

88391788(88391788) 我也没分数了呀！
最近老是给分，都没分给了呀！请见谅！