This code may work for what you need to do:
Dim stFreightCode as String
stFreightCode = DLookup ("[FreightCode]","tblModels","[Model]=me.ComboBox2")
TextBox = Dlookup ("[FreightCode]","tblFreight","[FreightCode]=stFreightCode")
In the first line, [FreightCode] is the field name from the...