还是老问题！上次发出来，都没人回答！各位高手帮一下！
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= data.mdb"
Set Rst = New ADODB.Recordset
Rst.Open "select * from shuju", Cnn, adOpenKeyset, adLockOptimistic

利用这段代码只能打开固定的数据库吗？红色的地方能改吗？

谢谢chenzhao!
本人是刚接触数据库的,请问上面代码中的con.State指什么?
如果是Access数据库的话,以上的代码怎么修改?

chenzhao,还要请教你一下!上面Function是定义了一个函数吧!我琢磨了好长时间,不知道怎么用!
要打开一个任意的数据库,怎么用它呢?
谢谢!!

先还是谢谢chenzhao!!
顺便还请教syh878,不知有何高见?能说的详细点吗?对以上代码还有要改进的地方吗?
本人对数据库不是很熟,能集思广益最好不过了!!

非常感谢chenzhao百忙之中抽出时间为我解答!感激不尽!!
你写的代码简直太好了,运行完全没有问题!我就是需要这样的!
看来一定要跟你好好学习数据库方面的知识!
所以还有一些要请教你!
1.
Public conn As New ADODB.Connection
Set conn = CreateObject("ADODB.Connection")
这里set...CreateObject有什么作用?
2.
Set rss = conn.OpenSchema(adSchemaTables)
Set rstSchema = conn.OpenSchema(adSchemaTables)
rss和rstSchema应该都是记录集,为什么要两个?各有什么作用?
后面是OpenSchema()和adSchemaTables表示什么意思,我觉得跟表有关!
3.
rstSchema("TABLE_NAME") <>
"MSysRelationships"
"MSysAccessObjects"
"MSysObjects"
"MSysQueries"
后面四个表示什么意思?
If rstSchema("TABLE_NAME") <> "MSysRelationships" And rstSchema("TABLE_NAME") <> "MSysAccessObjects" And rstSchema("TABLE_NAME") <> "MSysACEs" And rstSchema("TABLE_NAME") <> "MSysObjects" And rstSchema("TABLE_NAME") <> "MSysQueries" Then
这个判断是什么意思?
谢谢!诚心请教!

谢谢!!
其实我接触ADO还是较晚!最开始用的是DAO,
后来才知道ADO的功能更强大有取代前面几种技术的趋势.
不知道有没有关于ADO应用的详细教程,
我手上的资料很有限,关于ADO的好多属性和功能都没有介绍,所以很想要这方面的东西,
不知道阁下有什么高见??
Thank you!