adodb, sql sorgusunda combo1 deki sayı ve Textbox1 deki metne eşit olan kayıtlar?

[hsayar]

yeşil satırdakii gibi kullanıunca sorun yok ama o şekilde hsayar da geliyor hhsayar da. ben sadece hsayar gelsin istiyorum.
Saygılarımla.

Private Sub adbKset_Tarihler_Aç()
  Set CSfData = CKtp_Bu.Sheets("DATA")     'Verilerin alınacağı sayfa.
  Dim sqlFrom$, sqlSorg$, sqlSatr$

  'Adob RecordSet Değişkenleri
  sqlFrom = "[" & CSfData.Name & "$" & "A2:G1800" & "]"
  sqlSorg = "Sayac_No = " & ComboBox1.Text                                  'Sayaç Numarası, Combobox1'e eşit olan kayıtlar
[B][COLOR=Green]'  sqlSorg = sqlSorg & " AND UCase(Adi_Soyadi) Like '%" & UCase(TextBox1.Text) & "%'"    '' ve Adı soyadı,  textbox1'i içeren kayıtlar
[/COLOR][/B]
[B][COLOR=Red]  sqlSorg = sqlSorg & " AND UCase(Adi_Soyadi) = " & UCase(TextBox1.Text)    ' ve Adı soyadı,  textbox1'e eşit olan kayıtlar
   [/COLOR][/B]
   
   
   
   
   
   
   sqlSatr = "SELECT DISTINCT * FROM " & sqlFrom & " WHERE " & sqlSorg
'  : sqlSorg : "Sayac_No = 1542 AND Adi_Soyadi = Mehmet Er" : String
  'Adob RecordSet Sorgulaması
  If Err = 0 Then
    Set adbKset = CreateObject("ADODB.Recordset")
    With adbKset
      .ActiveConnection = adbBagl
      .CursorLocation = adUseServer
      .CursorType = adOpenKeyset
      .LockType = adLockOptimistic
      .Source = sqlSatr
      .Open
      '***********************************************************************
      If .RecordCount > 0 Then
        ListBox1.ColumnCount = .Fields.Count
        ListBox1.Column = .GetRows
      Else
        MsgBox "Kayıt Bulunamadı.", 16, "Bilgi"
      End If
    If CBool(.State And adStateOpen) = True Then .Close:  Set adbKset = Nothing
    End With
  Else
    MsgBox "Bağlantı Hatası Kontrol Ediniz", vbInformation, "Bilgi"
  End If
End Sub

 

[hsayar]

sqlSorg = sqlSorg & " AND UCase(Adi_Soyadi) Like '" & UCase(TextBox1.Text) & "'" '' ve Adı soyadı, textbox1'i içeren kayıtlar

olacakmış yani % ler iptal ediliyor.

 

[hsayar]

konuyu çözüldü olaark işaretleme kaldırıldımı?