How to use db1.txt,db2.txt,... for the same widget

Sub Process_Globals
   Dim dbSelected As String : dbSelected = "db1.txt"
End Sub

Sub Globals
    'Declare parameters for Layout1
    Dim Panel1 As Panel
    Dim Spinner1 As Spinner
    Dim label1 As Label
    Dim listview1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout1")
    Panel1.Visible=True
    Spinner1.AddAll(Array As String("db1.txt","db2.txt"))
    Spinner1_ItemClick(0, "db1.txt")
End Sub

Sub Spinner1_ItemClick (Position As Int, Value As Object)
    dbSelected = Value

    If File.Exists(File.DirAssets,dbSelected) Then
        listview1.Clear
        Dim Reader1 As TextReader
        If Reader1.IsInitialized = False Then
            Reader1.Initialize(File.OpenInput(File.DirAssets,dbSelected))
        End If
        Dim line As String
        line=Reader1.ReadLine
        Do While line <> Null
            listview1.AddSingleLine(line)
            line=Reader1.ReadLine
        Loop
        Reader1.Close
    End If           
End Sub