aşağıdaki kodu dener misiniz?
form boşaltıldığında olayının kodu

Private Sub Form_Unload(Cancel As Integer)

[Sehir].Value = Me.Açılan_Kutu17.Column(1)

End Sub

---

ama açıkçası şehir ismi yerine şehir kodunu ilişkilendirmeniz daha yerinde olurdu