Błąd pochodzi z klienta MySQL. Wygląda na to, że oczekuje, że w ciągu połączenia podasz określony parametr, którym nie jesteś. Chociaż nie jestem wystarczająco zaznajomiony z zarządzanym sterownikiem MySQL, aby powiedzieć, czego brakuje, to fakt, że coś jest brak jest całkiem jasne.
Możesz spróbować dodać spację między średnikiem, który sygnalizuje koniec jednego parametru a nazwą następnego parametru. Tak:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")
