菜鸟救救，高手进来帮忙，谢谢（数据库）

[hsghxm]

问题：（ACCESS）
假设数据库名为某建设局；
里面有N个表，表名有：重大工程，建筑物，公交站点，街坊，绿地，行政区划，开发商，物业公司等等；
每个表都设置好了特定的字段名称和内容，举例如下

如：重大工程表的字段为

ID 项目名称 项目编号 计划总投资 开始百分比 年初总投资
1 南洲花园二期 00001 500000.00 2% 380000.00
2 明珠大厦 00002 900000.00 50% 900000.00
3 隧道三线 00003 500000.00 36% 200000.00
.
.
.
求救一个查询语句：不知道各个表名的情况下（表名可用变量代替），按字段名（已知，如：项目名称）和内容的一个名称（已知，如：明珠大厦）来查询表里的内容。
我是新手，语法不太熟悉，请大哥大姐们把重要的代码写给我就行，我有100分可以给大家，谢谢！

[scegg]

Select * From [表名] Where 项目名称='明珠大厦'

这个是SQL。

[dongle2001]

dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\dc.mdb;" 'dc.mdb为数据库名

dim sql as String
dim biaoming as String '表名变量
sql="select * from "+ biaoming +"项目名称='明珠大厦'"
Set rs = cn.Execute(sql)
rs.Close
cn.Close

[dingdong0080]

上面是ＡＣＣＥＳＳ，以下是用ＳＱＬ连接的：
dim cn As new ADODB.Connection
Dim rs As new ADODB.Recordset
cn.Open "Provider=sqloledb;server=ip地址；database=数据库名;user id=用户名;password=密码＂
rs.open "select * from 表名 where 项目名称='明珠大厦'"，cn,3,3

[dingdong0080]

或者cn.Open "Provider=sqloledb;server=ip地址;Initial Catalog=数据库名;user id=用户名;password=密码＂

[hsghxm]

谢谢各位帮忙！！！！！！！！

[hsghxm]

小丁丁：这个数据库没用户名和密码，cn.Open "Provider=sqloledb;server=ip地址;Initial Catalog=数据库名;user id=用户名;password=密码＂，是不是这样写就可以了？
cn.Open "Provider=sqloledb;server=ip地址;Initial Catalog=数据库名;user id=用户名＂

[scegg]

无密码就不用写密码。

推荐把表名加上中括号，安全。