用datagrid只显示access中表的字段名，不现实数据。如何设置？

[ztj81]

如题

[lihonggen0]

'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\shute\trade.MDB;Persist Security Info=False"
CN.Open

Rs.CursorLocation = adUseClient
Rs.Open "select * from 表名 where 1<>1", CN, adOpenDynamic, adLockBatchOptimistic

Set DataGrid1.DataSource = Rs

[lihonggen0]

select * from 表名 where 1<>1

[ztj81]

to:lihonggen0(李洪根,用.NET，标准答案来了)
谢谢！
看来经验丰富！
接问。
我用access数据库，vb做的一个应用软件，准备制作到光盘上。
问题1，我需要注意哪些
问题2，我的数据库，别人不能打开

[hzybc]

表中无记录，或没有符合条件的记录

如表中有记录的话，用
rs.open "select * from table" cn,3,3 '不在条件试一下
Set DataGrid1.DataSource = Rs

[of123]

select * from table1 where false

[lihonggen0]

给数据库加个密码

改数据库扩展文件名

连接字串的数据库后缀名也要改

[of123]

问题2，我的数据库，别人不能打开：Access2000以上加密码