定义ComboBox1
if comboBox1="",出现提示(请输入......)
end if
if comboBox1 不为空Then
Tables("数据库").AddNew()
Else
ComboBox1.clear