Microsoft Access 掲示板

テキストを非連結にしてVBAにて帳票フォームを表示しようと作成しましたが、
レコードは　rs.MoveNext　で移動できているのですが、
表示が１行でしかできないです。　フォームの設定も帳票フォームにしてあるので

VBAがおかしいのですが、どこを修正すれば　すべてのレコードを帳票で表示できるのかわかりません。

すみませんがどなたか教えていただけないでしょうか？

Private Sub Form_Load()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    
    Set rs = db.OpenRecordset("SELECT * FROM T_伝票情報")
    
If rs.EOF = False Then
    Do Until rs.EOF
        Me.txb作業No = rs!作業No
        Me.txb名称 = rs!名称
        Me.txb発行者 = rs!発行者
        rs.MoveNext

    DoCmd.GoToRecord , , acNewRec
    Loop
End If
    rs.Close
    db.Close
End Sub