I finally was able to make this work, this is the code that made it work:
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
thanks for your support