Programacion: Obtener la fecha de un campo en insertarla en VB6

Por peticion de uno de mis discipulos :)
Aqui esta un ejemplo del codigo que se necesita para ingresar una fecha en una base de datos

fecha = Format(Now, "yyyy/mm/dd")
Cmd.CommandText = "INSERT INTO H_historial_pagos VALUES(" & usuarios_id(Me.res_pago.ListIndex) & "," & CDate(fecha) & ")"

O puedes hacerlo asi:

Cmd.CommandText = "INSERT INTO H_historial_pagos VALUES(" & usuarios_id(Me.res_pago.ListIndex) & "," # CDate(fecha) # ")"

El campo de la tabla debe ser datetime