ListBoxta Sayısal Değer süz

[omeryılmaz]

Arkadaşlar

ListBox üzerindeki TextBoxlarla Harf ile aramada sorun yok, Ancak ; özellikle Barkod No gibi 2. sütun ve diğer yerlerde sayısal aramalarda sorun yaşamaktayım
Sayısal değer aramak için ilgili textboxların kodlarında nasıl bir düzenleme gerekli.

Kod Örneği;

Private Sub TextBox16_Change()
On Error GoTo Hata
Dim Baslik As String
If TextBox16.Text = "" Then
rs.Filter = ""
Else
rs.Filter = "[F2] like '%" & TextBox16.Text & "%'"
End If
If rs.fields.Count > 1 Then
End If
ListBox6.Column = rs.getrows
If Hata Then
Hata:
MsgBox "Aradığınız kayıt Bulunamamıştır", vbInformation, "Bilgilendirme!"
End If

End Sub


Saygılar......