[求助]显示数据问题

就是我建了个子窗体，然后 视图我设置成数据表模式， 然后我写了个代码 控制显示出来所有记录 可是只能显示出来一条记录，别的记录都没显示，而且显示出来的这条记录是最后一条，意思就是说，他根本就没有一边循环一边显示，他就一直循环，直到最后一条，就结束了，但我想显示出来所有记录，这个怎么解决呀

循环代码如下:
Private Sub Form_Load()
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM teacher_admin", conn, 1, 1
rs.MoveFirst
For i = 1 To rs.RecordCount
教师ID = rs("teacherid")
教师名字 = rs("teachername")
教师生日 = rs("chushengdate")
教师简介 = rs("jianjie")
备注 = rs("beizhu")
rs.MoveNext
Next
End Sub

[此贴子已经被作者于2006-12-18 13:49:21编辑过]