Private Sub Button1_Click(ByVal sender As System.Object‚ ByVal e As System.EventArgs) Handles Button1.Click
        Dim ConnnectionStr As String = "Database=XXX;Data Source=XXX;User Id=XX;Password=XX"
        Dim MySqlConnection = New MySql.Data.MySqlClient.MySqlConnection()
        MySqlConnection.ConnectionString = ConnnectionStr
        MySqlConnection.Open()
        Dim MyAdapter = New MySql.Data.MySqlClient.MySqlDataAdapter()

        Dim MySQLCmd As String = "SELECT * FROM horaire"

        MyAdapter.SelectCommand = New MySql.Data.MySqlClient.MySqlCommand(MySQLCmd‚ MySqlConnection)


        ListView1.FullRowSelect = True
        ListView1.View = View.Details
        ListView1.Columns.Clear()
        ListView1.Columns.Add("Database"‚ 30‚ HorizontalAlignment.Left)
        ListView1.Columns.Add("Database2"‚ 240‚ HorizontalAlignment.Left)
        Dim reader As MySql.Data.MySqlClient.MySqlDataReader
        reader = Nothing
        Dim cmd As New MySql.Data.MySqlClient.MySqlCommand("SELECT * FROM news"‚ MySqlConnection)
        Try
            reader = cmd.ExecuteReader()
            ListView1.Items.Clear()
            Dim o As Integer
            o = 0
            While (reader.Read())


                ListView1.Items.Add(reader.GetString(0))
                ListView1.Items(o).SubItems.Add(reader.GetString(2))
                o = o + 1

            End While
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MessageBox.Show("Failed to populate database list: " + ex.Message)
        Finally
            If Not reader Is Nothing Then reader.Close()
        End Try
        MySqlConnection.Close()
    End Sub