adodc 连接ACCESS表语句问题

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=这里的文件路径引用一个变量怎么引用?
Adodc1.CommandType = adCmdText '设置记录源
Adodc1.RecordSource = "select * from 总销量 where 品种='可乐' 这个后面再加where语句?怎么加?
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh --------------------编程问答-------------------- dim aStr as string
aStr=app.Path & "/asdf.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & aStr
Adodc1.CommandType = adCmdText '设置记录源 
Adodc1.RecordSource = "select * from 总销量 where 品种='可乐' and 品种='易做图'" '直接用and连接 
Set DataGrid1.DataSource = Adodc1 
Adodc1.Refresh --------------------编程问答-------------------- 楼上正解 SQL语句也可写成:
select * from 总销量 where 品种 in ('可乐','易做图') and 容量='2L' --------------------编程问答-------------------- Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Qstr
Adodc1.CommandType = adCmdText '设置记录源 
Adodc1.RecordSource = "select * from 总销量 where 品种='可乐'" 
Set DataGrid1.DataSource = Adodc1 
Adodc1.Refresh --------------------编程问答-------------------- 我也是VB与access连接到是成功了，数据可以从datagrid里列表显示框里显示出数据了，可是我在做增加记录按钮时，老是报错，提示未正确驱动程序什么的，麻烦死了。我用的是JET4.0的，哎真是没有办法了。 --------------------编程问答-------------------- 这么简单的问题，何必搞得这么复杂呀？用控件ado直接就可以解决。具体如下
新建控件Adodc1，设置其ConnectionString属性，在设置其datasource
再设置其recordset属性 --------------------编程问答-------------------- 这么简单的问题，何必搞得这么复杂呀？用控件ado直接就可以解决。具体如下
新建控件Adodc1，设置其ConnectionString属性，在设置其datasource
再设置其recordset属性

补充：VB ,  数据库(包含打印，安装，报表)