Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        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 myData As New DataTable("MyData")
 
        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
End Sub
 
End Class

Mit freundlichen Gr??en,
Djinndrache