Espero que me pueden ayudar  tengo datos en form1   y lo quiero pasar en el form2 como lo hago este es mi codigo

los datos me salen  pero sale uno de los 5 nombres con sus informaciones

Data1.Refresh
    Do While Data1.Recordset.EOF = False
        txtMatricula = Data1.Recordset!Matricula
        txtNombre = Data1.Recordset!Nombre
        txtDireccion = Data1.Recordset!Direccion
        txtEdad = Str(Data1.Recordset!Edad)
        txtCarrera = Data1.Recordset!Carrera
        Form3.lblMatricula = txtMatricula.Text
        Form3.lblNombre = txtNombre.Text
        Form3.lblDireccion = txtDireccion.Text
        Form3.lblEdad = txtEdad.Text
        Form3.lblCarrera = txtCarrera.Text
        Data1.Recordset.MoveNext
    Loop
    Form3.Show
End Sub