ListBox a tıkladığımda bilgiler yanlış geliyor

[teksen]

Arkadaşlar merhaba,

Kapalı bir access dosyasına yazdırdığım bilgileri ListBox üzerinde görüntülüyorum.

aynı isimli kayıtlar olabildiği için ListBox click olayına aşağıdaki şekilde bir kod kullanıyorum ayırabilmesi için,metin olarak tanımlı yerlerde bir sorun yok fakat sayı olarak tanımlı olan kısımları yanlış getiriyor.

Sayı olarak tanımlı olanlar için kodlarda nasıl bir değişiklik yapmam gerekir acaba?



Private Sub ListBox2_Click()
Dim mrk, mdl, tdr, adt, uvv, buv As String
Dim r As Integer

r = ListBox2.ListIndex

mrk = ListBox2.List(r, 0) ' ithalat_no
mdl = ListBox2.List(r, 1) ' tedarikci
tdr = ListBox2.List(r, 2) ' malzeme_cinsi
adt = ListBox2.List(r, 3) ' urun_adi
uvv = ListBox2.List(r, 4) ' renk
buv = ListBox2.List(r, 5) ' uv
ssk = ListBox2.List(r, 6) ' satis_sekli
bfy = ListBox2.List(r, 7) ' birim_fiyat
bbf = ListBox2.List(r, 8) ' birim_bf
kdm = ListBox2.List(r, 9) ' kdv_dahil_maliyet

Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [MyTable]Where (ithalat_no='" & mrk & "' and tedarikci='" & mdl & "' and malzeme_cinsi='" & tdr & "' and urun_adi='" & adt & "' and renk='" & uvv & "' )"
RS.Open strSQL, adoCN, 1, 3
TextBox1 = RS("ithalat_no")
ComboBox1 = RS("tedarikci")
ComboBox2 = RS("malzeme_cinsi")
ComboBox3 = RS("urun_adi")
TextBox42 = RS("renk")
TextBox15 = RS("uv")
ComboBox7 = RS("birim_uv")
ComboBox6 = RS("satis_sekli")
TextBox20 = RS("birim_fiyat")
ComboBox8 = RS("birim_bf")
TextBox24 = RS("kdv_dahil_maliyet")
ComboBox9 = RS("birim_kdm")
TextBox28 = RS("kdv_haric_maliyet")
ComboBox10 = RS("birim_khm")
TextBox32 = RS("miktar")
ComboBox5 = RS("birim_m")
ComboBox4 = RS("yukleme_cinsi")
TextBox38 = RS("icerik")
TextBox40 = RS("depo_giris_tarihi")

CommandButton5.Enabled = True
CommandButton3.Enabled = True
Set RS = Nothing

End Sub

 

[Ferhat Pazarçevirdi]

........ metin olarak tanımlı yerlerde bir sorun yok fakat sayı olarak tanımlı olan kısımları yanlış getiriyor.

Nedir yanlış olan ? Gelen ne, gelmesi gereken ne ? Örnek veriniz.