Hola Amigos! como estan? les tengo que hacer una pregunta a ver si me pueden ayudar, estoy haciendo un sistema para agendar pagos por los meses, la primera vez que cargo un pago solo INSERTA los dos campos (uno abajo del otro)

pero cuando quiero cargar otro pago hago un update para que me queden en la misma fila. Ahora yo como ID tengo el numero de documento de los alumnos y quiero que en el update me actualice uno abajo de otro, pero no logro hacerlo. Si coloco este codigo me
carga dos veces el precio:
consulta = "UPDATE meses SET " & mes.Text.Trim & "='" & monto.Text.Trim & "' WHERE dni='" & Form1.dni.Text & "'"
si coloco el siguiente codigo me tira error.
consulta = "UPDATE meses SET " & mes.Text.Trim & "='" & monto.Text.Trim, fecha.text.trim & "' WHERE dni='" & Form1.dni.Text & "'"
ALGUNA RECOMENDACION?
Gracias.