Sorgu Yardımı

Merhabalar,

aşağıdaki sorguda Konik sonucunu almak istiyorum,
hata veriyor,
yanlışım nedir acaba?

 RsKonik.Open "SELECT Sum(SIPARIS_LISTESI.TOP_METRE) AS Konik FROM (PARTILENENLER LEFT JOIN PARTILENENLER_DURUM ON PARTILENENLER.PARTI_NO = PARTILENENLER_DURUM.PARTI_NO) LEFT JOIN SIPARIS_LISTESI ON PARTILENENLER.SIPARIS_NO = SIPARIS_LISTESI.SIPARISNO HAVING (PARTILENENLER_DURUM.DURUMU<>'sevk edildi' And (PARTILENENLER_DURUM.DURUMU<>'paket')", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        For k = 1 To RsKonik.RecordCount

            

            MsgBox RsKonik("Konik")

        

        RsKonik.MoveNext

        Next k

        RsKonik.Close

"SELECT Sum(SIPARIS_LISTESI.TOP_METRE) AS Konik

FROM (PARTILENENLER_DURUM right JOIN PARTILENENLER ON PARTILENENLER_DURUM.PARTI_NO = PARTILENENLER.PARTI_NO) LEFT JOIN SIPARIS_LISTESI ON PARTILENENLER.SIPARIS_NO = SIPARIS_LISTESI.SIPARISNO

WHERE (((PARTILENENLER_DURUM.DURUMU)<>'sevk edildi' And (PARTILENENLER_DURUM.DURUMU)<>'paket'))";

şeklinde dener misiniz?
bir de sorguyu önce accesse yaptırmaya çalışın, orada sonuç doğru çıkarsa VBA'da yapmaya çalışın

sorgu sonucu zaten doğru çıkıyordu,
benim amacım sorgu sonucunu Vba dan metin kutusuna aktarmak

aşağıdaki şekilde çözdüm,

Dim rs As New ADODB.Recordset
rs.Open "SELECT Sum(SIPARIS_LISTESI.TOP_METRE) AS Konik FROM (PARTILENENLER LEFT JOIN PARTILENENLER_DURUM ON PARTILENENLER.PARTI_NO = PARTILENENLER_DURUM.PARTI_NO) LEFT JOIN SIPARIS_LISTESI ON PARTILENENLER.SIPARIS_NO = SIPARIS_LISTESI.SIPARISNO HAVING (((PARTILENENLER_DURUM.DURUMU)<>'sevk edildi') And ((PARTILENENLER_DURUM.DURUMU)<>'paket'))", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then

MsgBox rs("Konik")


Else
End If
rs.Close