Como faço pra que o subform exiba mais de um registro? Há um metodo que me retorne mais de um registro ao contrário do FindFirst?

Question

Private Sub procura_reg_form()
   
    If (tb1.RecordCount <> 0) Then
        tb5.MoveFirst
        tb5.FindFirst COD = Me.ID.Value
       
        If tb5.NoMatch Then
            Form_Formulario.Item.Value = tb5("Item")
            Form_Formulario.Desc_Ordem.Value = tb5("Desc_Ordem")
            Form_Formulario.Desc_Classe.Value = tb5("Desc_Classe")
            Form_Formulario.qtd.Value = tb5("qtd")
            Form_Formulario.VALOR.Value = tb5("Valor")
            Form_Formulario.DescBar.Value = tb5("DescBar")
            Form_Formulario.ValorUnit.Value = tb5("ValorUnit")
            Form_Formulario.QtdeBar.Value = tb5("QtdeBar")
        End If
    End If
End Sub