如果要使用.accdb格式的數(shù)據(jù)庫，首先在工程下引用“Microsoft ActiveX Data Objects 6.1 library”

界面：

代碼：

Private Sub Command1_Click()

Dim conn As New ADODB.Connection '創(chuàng)建Connection連接對象

Dim rs As New ADODB.Recordset '創(chuàng)建Recordset記錄集

Dim i%

Dim a(1 To 11) As Integer

i = 1

conn.ConnectionString = 'Provider=Microsoft.ace.oledb.12.0;data source=E:\mydata\零件.accdb' '確定連接的數(shù)據(jù)庫

conn.Open '打開數(shù)據(jù)庫連接

rs.ActiveConnection = conn '設(shè)置記錄的連接屬性

rs.Open 'select * from lj' '打開記錄集

Do While Not rs.EOF '從第一條記錄開始查找，直到完成查詢

a(i) = rs.Fields(2) '數(shù)據(jù)放入數(shù)組中

List1.AddItem rs.Fields(2) & Space(16) & rs.Fields(3) '數(shù)據(jù)放入list列表框中

rs.MoveNext

Loop

rs.Close '關(guān)閉記錄集

conn.Close '關(guān)閉數(shù)據(jù)庫的連接

End Sub

數(shù)據(jù)庫：