manok

Option Strict On
Imports System.Data
Imports MySql.Data.MySqlClient
Module Example
    Sub Main()
        Dim cs As String = "Database=testdb;Data Source=localhost;" _
            & "User Id=testuser;Password=test623"
        Dim conn As New MySqlConnection(cs)
        Dim stm As String = "SELECT * FROM Authors"
        Try
            conn.Open()
            Dim da As New MySqlDataAdapter(stm, conn)
            Dim ds As New DataSet
            da.Fill(ds, "Authors")
            Dim dt As DataTable = ds.Tables("Authors")
            dt.WriteXml("authors.xml")
            For Each row As DataRow In dt.Rows
                For Each col As DataColumn In dt.Columns
                  Console.WriteLine(row(col))
                Next
                 Console.WriteLine("".PadLeft(20, "="))
           Next
        Catch ex As MySqlException
          Console.WriteLine("Error: " & ex.ToString())
        Finally
          conn.Close()
        End Try
    End Sub
End Module