Con Select Distinct mi da errore, riposto qui sotto il codice che utilizzo per salvare i dati in un file di testo

codice:
Stringa = "Select  ID_RACCOLTA_LP,LP, NOME_BRANO, NUMERO_BRANO, DURATA, VOTO " & _
"from Tbl_Canzoni order by LP, ID_RACCOLTA_LP, val(NUMERO_BRANO)"

Set rs = New ADODB.Recordset
rs.Open Stringa, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ELVIS.mdb; " & _
"Jet OLEDB:Database Password=Admin;", adOpenKeyset, adLockOptimistic, adCmdText
    

'SALVA IN UN FILE TXT
'**************
Open App.Path & "\TUTTI_LP.txt" For Output As #1
Print #1, "DATA " & Date
Print #1, ""
Print #1, "LP"; vbTab; vbTab; vbTab; "N°"; vbTab; "DURATA"; vbTab; "VOTO"; vbTab; "NOME_BRANO"
Do Until rs.EOF

durat = "00:" & rs.Fields("DURATA").Value
DURATA = (3600 * Val(Mid(durat, 1, 2)) + (60 * Val(Mid(durat, 4, 2)))) + Val(Mid(durat, 7, 2))

durat1 = DURATA + durat1

intRecord = intRecord + 1
NUMERO_BRANO = rs.Fields("NUMERO_BRANO").Value
DURATA = rs.Fields("DURATA").Value
NOME_BRANO = rs.Fields("NOME_BRANO").Value
VOTO = rs.Fields("VOTO").Value
LP = (rs.Fields("LP").Value)
  
rs.MoveNext

Print #1, LP; vbTab; NUMERO_BRANO; vbTab; DURATA; vbTab; VOTO; vbTab; NOME_BRANO

Loop

conta_record = intRecord
  
ORA = Fix(durat1 / 3600)
MINUTI = Fix(durat1 / 60) Mod 60
SECONDI = durat1 Mod 60
If Len(MINUTI) = 1 Then
MINUTI = "0" & MINUTI
End If
If Len(SECONDI) = 1 Then
SECONDI = "0" & SECONDI
End If

    TOT_TIME = ORA & ":" & MINUTI & ":" & SECONDI

    Print #1, ""
    Print #1, "TOTALE BRANI " & conta_record
    Print #1, "TOTALE TEMPO " & TOT_TIME
    Print #1, "°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
    Print #1, ""

  Close #1
Il Campo a cui vorrei che fosse visualizzato solo nel primo record è "LP", con le Array come posso fare?