Private Sub Açilan_Kutu0_Click()

Açilan_Kutu0.SetFocus
Metin2.Text = "select Adres from Musteri where Unvan='" & Açilan_Kutu0.Text & "'"

End Sub

Denetimin üzerinde odak olmadıkça bir denetimin bir özelliğine başvuramaz veya özelliği ayarlayamazsınız hatası alıyorum bu kodda,setfocus yaptığım halde.