[strong]Dim cnn As New ADODB.Connection      '定义一个Connection对象
Dim rs As New ADODB.Recordset       '定义一个Recordset对象
Private Sub Form_Load()
  cnn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db_kfgl.mdb" '连接数据库
  rs.Open "kf", cnn, adOpenKeyset, adLockOptimistic  '连接数据表
  rs.MoveFirst           '移动到第一条记录
  '使用循环语句将所有房间号输出到"立即"窗口
  Do While rs.EOF = False
    Debug.Print rs.Fields("房间号")
    rs.MoveNext
  Loop
  rs.Close            '关闭数据集对象
End Sub
不知道哪里出错
这是教材上的例题！！！！！！！[/strong]