這裡只是一個簡單不能再簡單的VB小程式實例，但它包含這幾個關鍵字：VB6.0、ADO、Access
環境：visual basic 6.0 企業版（非精簡版，不然會缺少必須的控制）
資料庫：Access資料庫，資料庫是xs.mbd，內建表為xj
結果：vb使用ADO連接access資料庫，查詢xj表中的所有數據，然後把查詢到的結果循環輸出到視窗中。
代碼：
Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO連線物件與記錄集Dim strSQL As String 'SQL字串db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '資料庫連線db.Open '開啟資料庫strSQL = "select * from xj" 'SQL字串RS.Open strSQL, db, 3, 1 '查詢資料表Do While Not RS.EOF '循環輸出查詢到的結果Print RS!姓名; RS!性別; RS!班級; RS!出生年月'在視窗中列印輸出結果RS.MoveNext '記錄下移LoopRS.Close '關閉記錄集Set RS = NothingEnd Sub
以上所述就是本文的全部內容了，希望大家能夠喜歡。