Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim Database As DataTable = Me.GetDatabaseTable("Datasource=localhost;" & _
          "Database=mysql; Username=root; Password=DeinPassword")
        For Each Row As DataRow In Database.Rows
            Console.WriteLine(Row!Db)
        Next
 
    End Sub
 
    Function GetDatabaseTable(ByVal ConnectionString As String) As DataTable
 
        Dim DataTable As New DataTable
        Dim Conn As New MySqlConnection(ConnectionString)
        Dim Cmd As New MySqlCommand("SELECT * FROM Db", Conn)
        Dim Adapter As New MySqlDataAdapter(Cmd)
 
        Try
            Adapter.Fill(DataTable)
            Return DataTable
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        Finally
            Conn.Close()
        End Try
 
    End Function