L'errore proviene dal client MySQL. Sembra che si aspetti che tu fornisca un parametro particolare nella stringa di connessione che non sei. Anche se non ho abbastanza familiarità con il driver MySQL gestito per dirti cosa manca, il fatto che qualcosa è manca è abbastanza chiaro.
Potresti provare ad aggiungere uno spazio tra il punto e virgola che segnala la fine di un parametro e il nome del parametro successivo. In questo modo:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")
