Do While Not ADO_RS.EOF
            Lst_Detay.AddItem
        '        Lst_Detay.Column(0, Lst_Detay.ListCount - 1) = ADO_RS.Fields("Departman").Value
        '        Lst_Detay.Column(1, Lst_Detay.ListCount - 1) = ADO_RS.Fields("MuhasebeHesapNo").Value
        '        Lst_Detay.Column(2, Lst_Detay.ListCount - 1) = Format(ADO_RS.Fields("FullTarih").Value, "DD/MM/YYYY")
        '        Lst_Detay.Column(3, Lst_Detay.ListCount - 1) = ADO_RS.Fields("FisNo").Value
        '        Lst_Detay.Column(4, Lst_Detay.ListCount - 1) = ADO_RS.Fields("Aciklama").Value
        '        Lst_Detay.Column(5, Lst_Detay.ListCount - 1) = Format(ADO_RS.Fields("Tutar_TL").Value, "#,###.00")
        '        ToplamTutar = ToplamTutar + ADO_RS.Fields("Tutar_TL").Value
           ADO_RS.MoveNext
Loop


burada 
"Lst_Detay.Column(0, Lst_Detay.ListCount - 1) = ADO_RS.Fields("Departman").Value"
cümlesinde listboxun sutunları ekleniyor  "Departman" kelimesi Sql de de hiç geçmemiş acaba nedir acaba Excel sutun başlığımıdır  yoksa listenin opsiyonel sutun başlığı mıdır