mod

Imports MySql.Data.MySqlClient
Module Example
    Sub Main()
        Dim cs As String = "Database=testdb;Data Source=localhost;" _
            & "User Id=testuser;Password=test623"
        Dim stm As String = "SELECT VERSION()"
        Dim version As String
        Dim conn As MySqlConnection
             Try
            conn = New MySqlConnection(cs)
            conn.Open()
            Dim cmd As MySqlCommand = New MySqlCommand(stm, conn)
            version = Convert.ToString(cmd.ExecuteScalar())
            Console.WriteLine("MySQL version: {0}", version)
        Catch ex As MySqlException
            Console.WriteLine("Error: " & ex.ToString())
        Finally
            conn.Close()
        End Try
   End Sub
End Module