直接用ADO物件就好了
Set conobject=Server.CreateObject("ADODB.Connection")
Provider="provider = microsoft.jet.oledb.4.0;"
Path="data source=" & Server.MapPath("資料庫.mdb")
conobject.open Provider & Path
'建立Recordset物件
Set RS=Server.CreateObject("ADODB.Recordset")
'指定連結資料庫的物件為conobject
RS.ActiveConnection=conobject
'指定Recordset物件對資料錄的操作類型為1
'可讀寫模式且資料錄可自由移動
RS.CursorType=1
'設定Recordset物件對取回資料的權限控管3
'樂觀鎖定
Rs.LockType=3
'指定要取回資料的來源為STUDENT資料表
'亦即取回資料表中全部的資料記錄
RS.Source="STUDENTS"
'使用Open方法取回資料
RS.Open