L'erreur vient du client MySQL. Il semble qu'il s'attend à ce que vous fournissiez un paramètre particulier dans la chaîne de connexion que vous n'êtes pas. Bien que je ne sois pas assez familier avec le pilote MySQL géré pour vous dire ce qui manque, le fait que quelque chose existe manquant est assez clair.
Vous pouvez essayer d'ajouter un espace entre le point-virgule qui signale la fin d'un paramètre et le nom du paramètre suivant. Comme ceci :
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")
