Kesalahan berasal dari klien MySQL. Tampaknya Anda mengharapkan Anda untuk memberikan parameter tertentu dalam string koneksi yang bukan Anda. Meskipun saya tidak cukup akrab dengan driver MySQL yang dikelola untuk memberi tahu Anda apa yang hilang, fakta bahwa ada sesuatu yang adalah hilang cukup jelas.
Anda mungkin ingin mencoba menambahkan spasi di antara titik koma yang menandakan akhir dari satu parameter dan nama parameter berikutnya. Seperti ini:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")