Private Sub Form_Click()
Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO連接對(duì)象和記錄集
Dim strSQL As String 'SQL字符串
db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '數(shù)據(jù)庫(kù)連接
db.Open '打開(kāi)數(shù)據(jù)庫(kù)

strSQL = "select * from xj" 'SQL字符串
RS.Open strSQL, db, 3, 1 '查詢數(shù)據(jù)表
Do While Not RS.EOF '循環(huán)輸出查詢到的結(jié)果
Print RS!姓名; RS!性別; RS!班級(jí); RS!出生年月 '在窗口中打印輸出結(jié)果
RS.MoveNext '記錄下移
Loop
RS.Close '關(guān)閉記錄集
Set RS = Nothing
End Sub