De fout komt van de MySQL-client. Het lijkt erop dat het verwacht dat u een bepaalde parameter opgeeft in de verbindingsreeks die u niet bent. Hoewel ik niet genoeg bekend ben met het beheerde MySQL-stuurprogramma om u te vertellen wat er ontbreekt, is het feit dat iets is missen is vrij duidelijk.
U kunt proberen een spatie toe te voegen tussen de puntkomma die het einde van een parameter aangeeft en de naam van de volgende parameter. Zoals dit:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")