Fejlen kommer fra MySQL-klienten. Det ser ud til, at det forventer, at du angiver en bestemt parameter i forbindelsesstrengen, som du ikke er. Selvom jeg ikke er fortrolig nok med den administrerede MySQL-driver til at fortælle dig, hvad der mangler, er det faktum, at noget er mangler er ret tydeligt.
Du kan prøve at tilføje et mellemrum mellem semikolon, der signalerer slutningen af en parameter og navnet på den næste parameter. Sådan:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")