El error proviene del cliente MySQL. Parece que espera que proporcione un parámetro particular en la cadena de conexión que no es. Si bien no estoy lo suficientemente familiarizado con el controlador de MySQL administrado para decirle lo que falta, el hecho de que algo es falta es bastante claro.
Puede intentar agregar un espacio entre el punto y coma que indica el final de un parámetro y el nombre del siguiente parámetro. Así:
Dim con As New MySqlConnection("Server=" + host + "; Database=" + database + "; Uid=" + user + "; Pwd=" + password + ";")
