Dim conn As New MySqlConnection("server=localhost; uid=root; pwd=;" & _
  "database=database")
 
        Try
            conn.Open()
            Label5.Text = "Verbindung hergestellt"
            conn.Close()
 
        Catch myerror As MySqlException
            Select Case myerror.Number
                Case 0
                    Label5.Text = "Fehler: Kann keine Verbindung zum Server" & _
                      "herstellen"
                Case 1045
                    Label5.Text = "Fehler: Falscher Benutzername/Passwort"
            End Select
        Finally
            conn.Dispose()
        End Try