If Me.cboMusteriTipi = "Al?c?" Then
      strSQL = "SELECT srg_satici.Adisoyadi AS SaticiAdi, srg_satici.Lokasyon_1, srg_alici.Adisoyadi AS AliciAdi, srg_alici.Lokasyon_1, " & _
                "srg_satici.kirabedeli AS kiralayaverenbedel, srg_alici.kirabedeli AS kiralayanbedel, srg_satici.Sat??Bedeli  " & _
                "AS satici, srg_alici.Sat??Bedeli AS alici, srg_satici.MobilNo_1, srg_alici.MobilNo_1, srg_satici.OdaTipi, " & _
                "srg_alici.OdaTipi, srg_satici.esyali, srg_alici.esyali, srg_satici.Site?cinde, srg_alici.Site?cinde" & _
               "FROM srg_satici INNER JOIN srg_alici ON (srg_satici.EmlakKategorisi = srg_alici.EmlakKategorisi) AND  " & _
                "(srg_satici.EmlakTipi = srg_alici.EmlakTipi)" & _
               "WHERE (((srg_alici.Sat??Bedeli)<= " & CCur(Me.txtBitisDegeri) & "And  " & _
                "srg_alici.Sat??Bedeli)>=" & CCur(Me.txtBaslangicDegeri) & " ) AND " & _
                "((srg_alici.musteritipi)='Al?c?') AND ((srg_alici.EmlakTipi)='" & Me.cboEmlakTipi & "') AND " & _
                "((srg_alici.EmlakKategorisi)='" & Me.cboEmlakKategorisi & "'));"
End If

sonda 2 parantez kullanmışım
tek parantez olacaktı
bir de satır başlarındaki " işaretinden sonra 1 boşluk olacaktı
If Me.cboMusteriTipi = "Al?c?" Then
      strSQL = "SELECT srg_satici.Adisoyadi AS SaticiAdi, srg_satici.Lokasyon_1, srg_alici.Adisoyadi AS AliciAdi, srg_alici.Lokasyon_1, " & _
                " srg_satici.kirabedeli AS kiralayaverenbedel, srg_alici.kirabedeli AS kiralayanbedel, srg_satici.Sat??Bedeli  " & _
                " AS satici, srg_alici.Sat??Bedeli AS alici, srg_satici.MobilNo_1, srg_alici.MobilNo_1, srg_satici.OdaTipi, " & _
                " srg_alici.OdaTipi, srg_satici.esyali, srg_alici.esyali, srg_satici.Site?cinde, srg_alici.Site?cinde" & _
               " FROM srg_satici INNER JOIN srg_alici ON (srg_satici.EmlakKategorisi = srg_alici.EmlakKategorisi) AND  " & _
                " (srg_satici.EmlakTipi = srg_alici.EmlakTipi)" & _
               " WHERE (((srg_alici.Sat??Bedeli)<= " & CCur(Me.txtBitisDegeri) & " And  " & _
                " srg_alici.Sat??Bedeli)>=" & CCur(Me.txtBaslangicDegeri) & " ) AND " & _
                " ((srg_alici.musteritipi)='Al?c?') AND ((srg_alici.EmlakTipi)='" & Me.cboEmlakTipi & "') AND " & _
                " ((srg_alici.EmlakKategorisi)='" & Me.cboEmlakKategorisi & "');"
End If