Dim mySQL As mySQL.Data.MySqlClient.MySqlConnection
    Function Execute(ByVal myCommand As String) As _
      mySQL.Data.MySqlClient.MySqlDataReader
        mySQL.Open()
        Dim myCMD As New MySql.Data.mysqlclient.MySqlCommand(myCommand, mySQL)
        Return myCMD.ExecuteReader(CommandBehavior.CloseConnection)
        mySQL.Close()
    End Function
        Try
            MySql = New MySqlConnection
            MySql.ConnectionString = "SERVER=cumz.de; UID=root; PWD=geheim;" & _
              "DATABASE=messenger"
            MySql.Open()
        Catch ex As Exception
            Console.WriteLine("* Could not connect to database: " & ex.Message)
        End Try

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com