O erro vem do cliente MySQL. Parece que está esperando que você forneça um parâmetro específico na cadeia de conexão que você não está. Embora eu não esteja familiarizado o suficiente com o driver MySQL gerenciado para dizer o que está faltando, o fato de que algo está falta é bem claro.
Você pode tentar adicionar um espaço entre o ponto e vírgula que sinaliza o final de um parâmetro e o nome do próximo parâmetro. Assim:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")
