Guardar registros incluidos los de fecha

[migy123456d]

ola amigos estoy programando mi proyecto de grado en visual .NET pero en mi segundo formulario no me guarda la fecha estoy guardando datos median el metodo get y setter lo que tengo en el boton guardar es :
if me.validatechildren = true and txtcodmaquina.text <> "" AND txtnmaquina.text <> "" and cmblaboratorio.text <> "" then
try
dim dts as new vmaquina
dim func as new fmaquina
dts.gnombre = txtcodmaquina.text
dts.gnumero = txtnmaquina.text
dts.glaboratorio = cmblaboratorio.text
dts.ghora = txthora.text
dts.gfecha = txtfecha.text
if func.insertar(dts)then
msgbox("registro de maquina registrado correctamente")
else
msgbox("registro de maquina no fue registrado")
end if
catch ex as exceptio
msgbox(ex.message)
end try
else msgbox ("falta ingresar algunos datos")