可以使用ADO來載入資料庫

WTM1

(一般)
Dim MyDB As New ADODB.Connection
'設定MyDB為一個新的ADODB的Connection物件
Dim MyRec As New ADODB.Recordset
'設定MyRec為一個新的ADODB的Recordset物件
Private Sub Command1_Click()
MyDB.Open "rovider=Microsoft.Jet.OLEDB.3.51ersist Security Info=False;Data Source=G:\VBP範例\資料庫\url.mdb"
' Provider=Microsoft.Jet.OLEDB.3.51ersist Security Info=False;Data Source=G:\VBP範例\資料庫\url.mdb
'上面那一行是利用ADODC抄出來的

'用Microsoft.Jet.OLEDB.3.51這個Provider
'把資料庫載入到MyDB這個ADODB.Connection
MyRec.Open "VB網站", MyDB
'MyRec擇開啟MyDB裡的〝VB網站〞這一個資料表
'MyRec此時MyRec裡以經充滿了url.mdb的VB網站的資料了
MyRec.MoveFirst
'將指標移到第一筆的位置
Do
List1.AddItem MyRec.Fields(0) & Chr(9) & MyRec.Fields(1) & MyRec.Fields(2)
'MyRec.Fields(0)是說MyRec指標所在的位置第一欄裡的資料
'MyRec.Fields(1)是說MyRec指標所在的位置第一欄裡的資料
'Chr(9)則是一個跳位字元
MyRec.MoveNext
'MyRec裡的指標移到下一筆的位置
Loop Until MyRec.EOF
'如果MyRec的指標已經移到最後一筆，則結束這一個迴圈
End Sub

●這一個url.mdb，在物件運用單元的DataControl物件下可以找到。


●由於Access2000檔案的內容又與原先Access檔案內容不同，因此舊有的Provider會認不得，因此你想要開啟Access2000的mdb檔時，上面的Provider要改成：Provider=Microsoft.Jet.OLEDB.4.0;

WTM1

看来有些老了！跟不上形势了！！……

我很期待你做一个vb.net的例子！

WTM1

做得不错！