Çözüldü sql Sorgusu İçerisinde Inputbox Kullanarak Değişiklik Yapmak

Merhaba Değerli ExcelCozum.Com kullanıcıları;

Yapmak İstediğim; "ADO Kullanarak veri çektiğim sorgudaki ilçe kısmını Inputbox kullanarak değiştirmek istiyorum.

Üzerinde uğraştığım kod;

Sub İLCE_DEGİSTİR()

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim yol As String
yol = "E:\1- BELGELERİM\2021- 2022 İSTATİSTİKLERİ\6- VERİ TABLOLARI\PERSONEL SAYISI (UNVAN) (31).xls"
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ";extended properties=""Excel 12.0;hdr=yes"""

' On Error Resume Next

İlce_Sec = InputBox("İLÇE SEÇ")
İlce_Deistir = InputBox("İLÇE DEĞİŞTİR")

VBE.PERSONEL_İLCE.Replace What:=İlce_Sec, Replacement:=İlce_Deistir, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

sql = "SELECT Sum([SAYISI])FROM [PERSONEL SAYISI (UNVAN) (31)$]" _
& "WHERE[İLÇE]='İNCESU'" ' BU SORGUDEKİ İLÇEYİ INPUTBOX KULLANARAK DEĞİŞTİRMEK İSTİYORUM

rs.Open sql, con

Sayfa48.Range("X18") = rs(0)

rs.Close
con.Close

MsgBox ("VERİLER ÇEKİLDİ")

sql = vbNullString
Set rs = Nothing
Set con = Nothing

End Sub

Yardımlarınız için şimdiden teşekkür ederim.