Felet kommer från MySQL-klienten. Det verkar som att den förväntar sig att du ska tillhandahålla en viss parameter i anslutningssträngen som du inte gör. Även om jag inte är tillräckligt bekant med den hanterade MySQL-drivrutinen för att berätta vad som saknas, är det faktum att något är saknas är ganska tydligt.
Du kanske vill försöka lägga till ett mellanslag mellan semikolonet som signalerar slutet på en parameter och namnet på nästa parameter. Så här:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")