Dim myConnString As String
        'mysql
        myConnString = "server=localhost;user" & _
          "id=root;password=Meinpassword;database=MeineDatenbank"
        Dim conn As New MySqlConnection
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
 
        Dim SQL As String
 
        SQL = "SELECT * FROM `Portlist` ORDER BY `port` ASC "
 
        conn.ConnectionString = myConnString
 
        myCommand.Connection = conn
        myCommand.CommandText = SQL
        myAdapter.SelectCommand = myCommand
        myAdapter.Fill(myData)
        DataGridView1.DataSource = myData