Der Fehler kommt vom MySQL-Client. Es scheint, dass es erwartet, dass Sie einen bestimmten Parameter in der Verbindungszeichenfolge angeben, die Sie nicht sind. Obwohl ich mit dem verwalteten MySQL-Treiber nicht vertraut genug bin, um Ihnen zu sagen, was fehlt, ist die Tatsache, dass etwas ist fehlt ist ziemlich klar.
Sie können versuchen, zwischen dem Semikolon, das das Ende eines Parameters signalisiert, und dem Namen des nächsten Parameters ein Leerzeichen einzufügen. So:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")
