Stok Hareketlerinde Cari Isim Getirme

Stok hareketleri tablosundan excel'e veri çekiyorum fakat cari kod kismina bakarak cari isimlerinin listelenmesini bir türlü yapamadim bu islemi nasil yapabilirim. Aslinda alabiliyorum fakat devir ve depolar arasi tranferleri alamadim bunlari alamadigim için veriler eksik geliyor.

  SqlText = "SELECT *"
    SqlText = SqlText + " FROM TBLSTHAR A,  TBLCASABIT B where (A.STHAR_CARIKOD = B.CARI_KOD)AND STOK_KODU like '" & StharStokKodu & "'"
    SqlText = SqlText + " ORDER BY STHAR_TARIH "
    rs.Open SqlText, con, 1, 1
    rs.MoveFirst
    Do While Not rs.EOF
        i = i + 1

        ListView1.ListItems.Add , , rs("INCKEYNO")
.
.
.
        ListView1.ListItems(i).SubItems(1) = Cari isim gelicek
.
.
.
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub

Ilginize simdiden tesekkür ederim.