Грешката идва от MySQL клиента. Изглежда, че очаква да предоставите определен параметър в низа за връзка, който не сте. Въпреки че не съм достатъчно запознат с управлявания MySQL драйвер, за да ви кажа какво липсва, фактът, че нещо е липсва е доста ясно.
Може да искате да опитате да добавите интервал между точката и запетая, която сигнализира края на един параметър и името на следващия параметър. Като това:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")