Вывод данных в ListBox из БД SQLite

 sqConnection.Open()
        Dim command As SQLiteCommand = New SQLiteCommand("select DISTINCT  dat from Se;", sqConnection)
        Dim reader As SQLiteDataReader = command.executereader()
        If reader.HasRows Then
            Do While reader.Read()
                'ListBox1.DisplayMember = reader.StepCount
                ListBox1.datasource (reader.GetString(0)) ' выводит ошибку Для составного DataBinding источником данных может служить IList или IListSource.
                Console.WriteLine(reader.GetString(0)) ' выводит столько значений сколько есть в базе
                ComboBox1.Text = reader.GetString(0) + vbCrLf ' выводит только последнее значение
            Loop
        Else : Console.WriteLine("noy")
        End If
        reader.Close()
        sqConnection.Close()

ListView1.Items.Clear()
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
On Error Resume Next
        Dim SQL_COM As String
        Dim con As New SQLiteConnection("Data Source=" & DB_ADRES)
 
        SQL_COM = "SELECT * FROM 'forms';"
 
        Dim sqlCom As New SQLiteCommand(SQL_COM, con)
        con.Open()
        Dim SQLreader As SQLiteDataReader = sqlCom.ExecuteReader()
 
        If Err.Number <> 0 Then
            MsgBox("Ошибка " & Err.Number & ". " & Err.Description, MsgBoxStyle.Critical, "")
        Else
 
            While SQLreader.Read()
                ComboBox1.Items.Add(SQLreader(1))
                If SQLreader(5) = "True" Then
                    ComboBox1.Text = SQLreader(1)
                    Cennik_form = SQLreader(4)
                    Cennik_vert = SQLreader(3)
                    Cennik_gor = SQLreader(2)
                End If
            End While
 
        End If
        Err.Clear()
        con.Close()

While SQLreader.Read()
                    Dim item1 As New ListViewItem(CStr(SQLreader(0)), 0)
                    item1.SubItems.Add(CStr(SQLreader(1)).Replace("</br>", ""))
                    item1.SubItems.Add(SQLreader(2))
                    ListView1.Items.AddRange(New ListViewItem() {item1})
                End While

ListBox1.Items.Add(reader.GetString(0))

 Dim SQLconnect As SQLiteConnection
        SQLconnect = New SQLiteConnection("Data Source=MyDatabase.sqlite;Version=3;")
        SQLconnect.Open()
 
 
        Dim command As SQLiteCommand = New SQLiteCommand("select DISTINCT 'Name' from 'раздел';", SQLconnect)
        Dim reader As SQLiteDataReader = command.ExecuteReader()
 
        MsgBox(reader.GetString(0))
        reader.Close()
        SQLconnect.Close()

If reader.HasRows Then 'Здесь проверяется , существует ли в рейдере хоть одна запись
            Do While reader.Read() ' Здесь идёт перебор строк
                MsgBox(reader.GetString(0))
            Loop
        
  End If