还是老问题！上次发出来，都没人回答！各位高手帮一下！
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

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

定义一个字符串变量，然后
rs.open "select * from " & tablename,con,1,3

红色的地方能改吗？

那你改过没有?...

Public Function connect(se As String, uid As String, pwd As String, data As String) As Integer
Dim constr As String
constr = "driver={sql server};server=" & se & ";uid=" & uid & ";pwd=" & pwd & ";database=" & data
con.Open constr
If con.State > 0 Then
connect = 1
Else
connect = 0
End If
End Function

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

不客气，con.state是指打开数据库的状态，大于0为打开成功，可以读取数据，如果为0的话则打开失败！
估计在access里该属性同样可用！
你试一下，我好久没有用过该数据库了！

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

public function connect(path as string) as integer
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim strconn as string
strconn= "DRIVER=Microsoft Access Driver (*.mdb);DBQ="& path
conn.open strconn
if conn.state=1 then
connect=1
else
connect=0
endif
end function
示例函数如上
调用变量函数如下:
括号的路径加数据库名称可以由自己定义!

i=connect("c:\example.mdb")

如果i的值为1的话,可以读取数据,为0的话不能打开,你可以用msgbox或者print 看一下i的值,这里假设你的数据没有密码
我好长时间没有用access做后台数据库了,忘记了access是否支持ado的所有属性~

晕,应该用sub

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