用ADO打开链接表

用ADO打开链接表

这是我以前十分头痛的问题，不知道那一堆一串的是什么意思现在知道了，这个是打开ACCESS的，打开别的表不在此讨论之内。
Dim appAccess As ADODB.Connection
Dim strCn, temp As String
Dim cat As ADOX.Catalog
Dim rstEmployees As ADODB.Recordset
Dim intloop As Integer
Dim tbl1, tblEmp As ADOX.Table
Dim idx As ADOX.Index

strCn = "provider=microsoft.jet.oledb.4.0;password=;user id=admin; data source=" _
& "C:\Program Files\zhanyexing\123.mdb;Jet OLEDB:Database Password=；"

Set appAccess = New ADODB.Connection
appAccess.Open strCn
Set cat = New ADOX.Catalog
cat.ActiveConnection = appAccess
路径改成自己的，如果有密码则在红色的Password=后面写上正确的密码，别的照抄就行了。