Thanks for your answers,
at the end I used only two froms, the firstone with 3 combobox cascades, one listbox, and the second one with a listbox only, using this code I was able to make the forms loop the way I needed:
Code:
Private Sub btnStation_Click()
Dim AreaLookUp As String
AreaLookUp = DLookup("Area", "Qry-xreference", "StationDescription='" & Forms!frm30UserData!lstStation & "'")
[Forms]![frm20MainStatus]![cmbArea] = AreaLookUp
Dim SubLookUp As String
SubLookUp = DLookup("[Subarea]", "[Qry-xreference]", "[StationDescription]='" & [Forms]![frm30UserData]![lstStation] & "'")
[Forms]![frm20MainStatus]![cmbSub] = SubLookUp
[Forms]![frm20MainStatus]![cmbStation] = [Forms]![frm30UserData]![lstStation] & ""
[Forms]![frm20MainStatus].Refresh
End Sub