ADODB bağlantsınında Gruplama Sorunu

[hsayar]

en Aşağıdaki kodlar ile iki farklı tablodan txtVATNO kontorolüne girilen değer ile sorgulama yapıyorum. istediğim yeşil ile işaretli alandaki sorgu ile tüm alanlar geliyor.. istediğim bazı alanlar gelmesin... ben alttaki gibi denedim ama olmadı

'    sqlSTR = " SELECT DISTINCT " & _
                  "tblSECMEN.Kimlik, tblSECMEN.VATNO tblSECMEN.VATNO, tblSECMEN.SCM_ID, " & _
                  "tblSECMEN.SCM_IL, tblSECMEN.SCM_ILCE, tblSECMEN.SCM_MUHTARLIK, " & _
                  "tblSECMEN.SCM_SANDIKNO, tblSECMEN.SCM_SECMENNO, tblSECMEN.SCM_TARIHI, " & _
                  "tblSECMEN.SCM_SANDIKSIRANO, tblSECMEN.SCM_SANDIKALANADI" & _
             " FROM [tblSECMEN] " & _
             " WHERE " & "tblSAHIS.VATNO ='" & txtVATNO.Text & "' " & _
             " GROUP BY " & _
                  "tblSECMEN.SCM_ID, tblSECMEN.SCM_IL, tblSECMEN.SCM_ILCE, " & _
                  "tblSECMEN.SCM_MUHTARLIK, tblSECMEN.SCM_SANDIKNO, tblSECMEN.SCM_SECMENNO, " & _
                  "tblSECMEN.SCM_TARIHI, tblSECMEN.SCM_SANDIKSIRANO, tblSECMEN.SCM_SANDIKALANADI"

Private Sub cmdSORGU_Click()
    If Trim(txtVATNO.Text) = "" Then GoTo exitPROC
    
    sbNFSKYTBAG_AC
    If boolNFSKYDBAG = False Then GoTo exitPROC
Rem *\*\*\*\*\*\*\*\*\*\**\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\
'   Bağlanılan veritabanının tblSAHIS tablosundan bilgileri çek ve kontrollere getir.

    Set recNFS = CreateObject("ADODB.Recordset")    'kayıt bağlantısını kur
    sqlSTR = " SELECT " & sqlBAS_SAHIS & " FROM [tblSAHIS] " & _
             " WHERE " & "tblSAHIS.VATNO ='" & txtVATNO.Text & "' "
        
        With recNFS
          .Open sqlSTR, conNFS, adOpenKeyset, adLockOptimistic
          If .RecordCount <> 1 Then                      '1 adet kayıt bulundu ise
            boolNFKYVAR = False
            GoTo exitPROC
          Else
            If recNFS("SHS_ADI") <> "" Then Me.txtSHS_ADI = recNFS("SHS_ADI")
            If recNFS("SHS_SOYADI") <> "" Then Me.txtSHS_SOYADI = recNFS("SHS_SOYADI")
            boolNFKYVAR = True
          End If
        End With
        Set recNFS = Nothing
Rem */*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/


Rem *\*\*\*\*\*\*\*\*\*\**\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\
'   Bağlanılan veritabanının tblSECIM tablosundan bilgileri çek.
[B][COLOR=DarkGreen]        
    Set recNFS = CreateObject("ADODB.Recordset")    'kayıt bağlantısını kur
    sqlSTR = " SELECT * FROM [tblSECMEN]  WHERE " & _
             " tblSECMEN.VATNO ='" & txtVATNO.Text & "' "[/COLOR][/B]
       
    lbxSECMEN.Clear
        With recNFS
          .Open sqlSTR, conNFS, adOpenKeyset, adLockOptimistic
          If .RecordCount <> 0 Then                      'kayıt bulundu ise
            With lbxSECMEN
              .ColumnCount = recNFS.Fields.Count
              '.ColumnWidths = "60;60;60;60;100;60"
              .Column = recNFS.GetRows
              .TextAlign = fmTextAlignRight
              .SpecialEffect = fmSpecialEffectFlat
            End With 'ListBox1
          End If
        End With
        Set recNFS = Nothing
Rem */*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/

exitPROC:
Call sbNFSKYTBAGKES
End Sub