这个 你弄个数据控件 在连接；里用字符串连接 选择什么数据库 之类的设置后 生成的字符串 拿来用就是了 把数据库路径改下就是了
成都创新互联专业为企业提供坪山网站建设、坪山做网站、坪山网站设计、坪山网站制作等企业网站建设、网页设计与制作、坪山企业网站模板建站服务，10年坪山做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
vb中可以使用+连接字符串，
也可以使用连接字符串，
建议使用连接字符串，以区别数学运算符+。
Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='cc'"
这句写错啦,你直接传送的是检测项目为字符串"cc"的参数,并不是你程序写的CC参数
改为:
Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='" cc "'"
建议通过程序组织的sql语句可以通过msgbox da 弹出来看看,这样你较容易查出是什么错误,较长的就用textbox1.text=da来看了,不过记得设置断点"exit sub"
使用ACCESS数据库的日期列比较，应为：
"select * from 表 where 日期列=" "#" cdate(textbox1.text) "#"
注意前后两个“#”号
使用sqlserver
"select * from 表 where 日期列=" "'" cdate(textbox1.text) "'"
当然日期格式要注意，如长短日期等。
日期期间:between 小日期 and 大日期(记得加#号)
Label3.Text = "ennum1 " * " ennum2 "=" "
改成：
Label3.Text =ennum1.tostring() "*" ennum2.tostring() "="
就可以了，你试试！