Chyba pochází z klienta MySQL. Zdá se, že očekává, že v připojovacím řetězci zadáte určitý parametr, kterým nejste. I když nejsem dostatečně obeznámen se spravovaným ovladačem MySQL, abych vám řekl, co chybí, skutečnost, že něco je chybějící je celkem jasné.
Můžete zkusit přidat mezi středník mezeru, která signalizuje konec jednoho parametru a název dalšího parametru. Takhle:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")