Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = "server=db2315.1und1.de;" _
                                             & "user id=dbo317179755;" _
                                             & "password=*******;" _
                                             & "database=db317179755"
        Try
            conn.Open() ' Verbindung öffnen
        Catch myerror As MySqlException
            MsgBox("Keine Verbindung zur Datenbank : " & _
              myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
        End Try

____________________________________________

Meine Homepage: www.richardreiber.net

Interessantes Onlinegame: www.xnova.1.vg