VB6用Ado連接數據庫后，通過Sql結構化查詢語句獲得數據庫中表的數據。

• 結構化查詢語言(Structured Query Language)簡稱SQL，是一種特殊目的的編程語言，是一種數據庫查詢和程序設計語言，用于存取數據以及查詢、更新和管理關系數據庫系統；同時也是數據庫腳本文件的擴展名。

• ADO 是為 Microsoft最新和最強大的數據訪問范例 OLE DB 而設計的，是一個便于使用的應用程序層接口。OLE DB為任何數據源提供了高性能的訪問，這些數據源包括關系和非關系數據庫、電子郵件和文件系統、文本和圖形、自定義業務對象等等。ADO 在關鍵的 Internet方案中使用最少的網絡流量，并且在前端和數據源之間使用最少的層數，所有這些都是為了提供輕量、高性能的接口。

• 應用代碼示例：

  Private Sub Command1_Click()

      Dim cn As New ADODB.Connection '定義數據庫的連接

      Dim rs As New ADODB.Recordset

      Dim sql As String

      sql = "select * from jishijilu"

      cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"

      cn.Open

      rs.CursorLocation = adUseClient

      rs.Open sql, cn, adOpenDynamic, adLockOptimistic

      Set DataGrid1.DataSource = rs

  End Sub

'在工程里引用 microsoft activex data objects 2.7 library
'然后隨便畫個命令控件，在命令控件的單擊事件里(click)輸入以下代碼，并改成你的數據庫名和數據庫里的字段名。
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
dim i As Long
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password = 111;Data Source=" & App.Path & "\1.mdb" '1.mdb 替換成你的數據庫
cn.Open
rs.Open "select * from 表1 ", cn, adOpenStatic, adLockOptimistic '表1這里改成你的表名
i=1
do while not rs.eof
'這里編程輸出查詢結果
if i=5 then msgbox rs.Fields (0) & " 這就是第5條記錄"
i=i+1
rs.MoveNext
loop
rs.Close