vb SQL 查询 不支持连接表达式 我用的是ACCESS数据库

SQL = "select 产品.代码,产品.规格,产品.品名,产品.单位,产品.类别,产品.分组,产品.入库否,sum(数据.数量) as 帐存量 from 产品 inner join 数据 on 数据.代码=产品.代码 and 数据.日期<=#" & "2011-6-2" & "# group by 产品.代码 ,产品.规格,产品.品名,产品.单位,产品.类别,产品.分组,产品.入库否"

试一下：
SQL = "select 产品.代码,产品.规格,产品.品名,产品.单位,产品.类别,产品.分组,产品.入库否,sum(数据.数量) as 帐存量 from 产品 inner join 数据 on 数据.代码=产品.代码 WHERe 数据.日期<=#" & "2011-6-2" & "# group by 产品.代码 ,产品.规格,产品.品名,产品.单位,产品.类别,产品.分组,产品.入库否"
或
SQL = "select 产品.代码,产品.规格,产品.品名,产品.单位,产品.类别,产品.分组,产品.入库否,sum(数据.数量) as 帐存量 from 产品 , 数据 WHERe 数据.代码=产品.代码 and 数据.日期<=#" & "2011-6-2" & "# group by 产品.代码 ,产品.规格,产品.品名,产品.单位,产品.类别,产品.分组,产品.入库否"

如果你说的sql是指 sql server ,那么改下连接字符串就可以了

如果不是集成验证,这么写

provider=persist security info=true;user id=用户名;password=密码;initial catalog=project;data source=这里写数据库服务器的名或ip

如果是集成windows验证

这么写

provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=myproject;;data source=这里写数据库服务器的名或ip

Access不支持Inner Join，你这样用： SQL = "select 产品.代码,产品.规格,产品.品名,产品.单位,产品.类别,产品.分组,产品.入库否,sum(数据.数量) as 帐存量 from 产品, 数据 Where 数据.代码=产品.代码 and 数据.日期<=#" & "2011-6-2" & "#"