French Database sqlite

If File.Exists(File.DirInternal, "LaMieCaline.db") then
    sql1.Initialize(File.DirInternal, "LaMieCaline.db", True)
else
    log("LaMieCaline.db n'existe pas.")
end if

'Initialize the Spinners
Private Sub UpdateFilters
    Private Query1 As String
    Private ResultSet1 As ResultSet
    
    'We execute a query for each column and fill the Spinner
    'We use SELECT DISTINCT to have each existing first name in the database only once
    Query1 = "SELECT DISTINCT FirstName FROM persons ORDER BY FirstName ASC"

    'fill the FirstName Spinner
    ResultSet1 = Main.SQL1.ExecQuery(Query1)
    'we add 'no filter' as no selection
    spnFirstName.Add("no filter")
    'we fill the Spinner with the data from the database
    Do While ResultSet1.NextRow
        spnFirstName.Add(ResultSet1.GetString("FirstName"))
    Loop
    
    'fill the LastName Spinner
    Query1 = "SELECT DISTINCT LastName FROM persons ORDER BY LastName ASC"
    ResultSet1 = Main.SQL1.ExecQuery(Query1)
    spnLastName.Add("no filter")
    Do While ResultSet1.NextRow
        spnLastName.Add(ResultSet1.GetString("LastName"))
    Loop
    
    'fill the City Spinner
    Query1 = "SELECT DISTINCT City FROM persons ORDER BY City ASC"
    ResultSet1 = Main.SQL1.ExecQuery(Query1)
    spnCity.Add("no filter")
    Do While ResultSet1.NextRow
        spnCity.Add(ResultSet1.GetString("City"))
    Loop
    
    ResultSet1.Close
End Sub

    Private lstMois As List

    lstMois.Initialize
    lstMois.AddAll(Array As String("Jan", "Fév", "Mar", "Avr", "Mai", "Jun", "Jui", "Aoû", "Sep", "Oct", "Nov", "Déc"))
    
    Log(lstMois.Get(1))
    Log(lstMois.IndexOf("Avr"))

Sub Process_Globals
    ...
    Dim mois_noms As List = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin","Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
    ...
end sub

sub get_mois_nom(mois_num as int) as string
    return mois_noms.Get(mois_num - 1)
end sub