怎样连接设有密码的ACCESS数据库，怎样连接Excel 数据库？

[tgq1981]

我是这样用的：

cnndata.provide="Microsoft.Jet.OLEDB.4.0"
cnndata.connetstring=app.path & "\db1.mdb",user id,password
rsdata.open "select * from table"



语法有错，不要笑我，但是这样不行，请指点。


还有一个问提：
ado 怎样才能连接excel的数据库？用那个驱动？
或责有其他的方法没有？

[lxqlogo0]

错了，不好意思，贴错地方了

[lxqlogo0]

'首先引用Microsoft Activex Data Objects 2.x Library
'access
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb"
objrs.Open "select * from infoTable ", objcon, 3, 1
Set DataGrid1.DataSource = objrs

[lxqlogo0]

'首先引用Microsoft Activex Data Objects 2.x Library
'access
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb"
objrs.Open "select * from infoTable ", objcon, 3, 1
Set DataGrid1.DataSource = objrs

[waterw]

打开加密的MDB
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\shop.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123"

打开Excel
Set cnnDB = New ADODB.Connection
With cnnDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties") = "Excel 8.0;IMEX=1;"
.Open txtFile.Text
End With
Set recXls = New ADODB.Recordset
strSheet = txtSheet.Text
recXls.Open "Select * From [" & strSheet & "$]", cnnDB, adOpenDynamic, adLockOptimistic

[lxqlogo0]

objrs.Open "select * into [Excel 8.0;DATABASE=c:\myExcel.xls].[WorkSheet1] from orders", objcon

[tgq1981]

能不能把excel的内容说得详细点？谢谢谢谢谢谢谢谢谢谢谢谢啦

[yaya8168]

can you explain the parameter of function