ADO透過ODBC載入MDB資料庫

WTM1

(一般)
Dim MyDB As New ADODB.Connection
'設定MyDB為一個新的ADODB的Connection物件
Dim MyRec As New ADODB.Recordset
'設定MyRes為一個新的ADODB的Recordset物件
Private Sub Form_Load()
MyDBS.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\database\db01.mdb"
'db01.mdb就是原來的adodc001.mdb
Set MyRec = MyDBS.Execute("星座表")
'或是 MyRec.Open "星座表", MyDBS
List1.AddItem MyRec.Fields(0).Name & Chr(9) & MyRec.Fields(1).Name & Chr(9) & MyRec.Fields(2).Name & Chr(9) & Chr(9) & MyRec.Fields(3).Name & Chr(9) & MyRec.Fields(4).Name
MyRec.MoveFirst
Do
List1.AddItem MyRec.Fields(0) & Chr(9) & MyRec.Fields(1) & Chr(9) & MyRec.Fields(2) & Chr(9) & Chr(9) & MyRec.Fields(3) & Chr(9) & MyRec.Fields(4)
MyRec.MoveNext
Loop Until MyRec.EOF
End Sub

●用ListBox把db01.mdb改顯示出來。