FoxPro/Visual FoxPro - agregar fecha a una tabla

buenas tardes, tengo problema al querer agregar una fecha.

el tipo de datos de la columna es date, pero cuando quiero usar insert into... me sale error. la fecha debe ser una ingresada por el usuario.

Si quieres decir que el dato se ingresa en un TExtbox, revisa la configuración de ese textbox
* En el init del form, o en init del TextBox (o en el cuadro de propiedades)
with Thisform.TxtFecha
.Format="D"
.Inputmask="" && acá te tiene que quedar ( none) en el cuadro de propiedades
.Value=Ctod("") && puedes predefinir la fecha con .Value=date()
endwith
Luego, Replace CampoFEcha with thisform.txtFEcha.value

estoy ingresandolo como parametro a un prg

El tema es que habías dicho que la fecha la ingresaba un usuario. Entonces, cómo es que hace un usuario para pasar un parámetro?. O dicho de otra forma, de donde surge el valor parámetro?. Y ya que es un parámetro, supongamos
PROCEDURE GuardarDAtos
LPARAMETERS tdFEcha,tnValor,tcString
IF VARTYPE(tdFecha)#"D"
Messagebox("El parámetro tdFEcha no es tipo Date. Es "+Vartype(tdFecha))
REturn
endif
IF VARTYPE(tnValor)#"N"
Messagebox("El parámetro tnValor no es un número. Es "+VArtype(tnValor)
Return
endif

O sea, programación defensiva.

lo que pasa es que no tiene interfaz grafica, asi que el usuario solo ejecuta el prg y ya esta.

intente el codigo y sale bien al verificar si sea fecha, sin embargo como puedo pasarle una fecha sin que me diga que es del tipo caracter? y como le hago para inserarlo a una tabla?

Vaya, no entiendo.
"la fecha debe ser una ingresada por el usuario."
"lo que pasa es que no tiene interfaz grafica, asi que el usuario solo ejecuta el prg y ya esta"
En qué quedamos? Vuelvo a preguntar: de dónde surge la variable de supuesta fecha que se pasa como parámetro?

Si la fecha es un tipo caracter, escrito como "12/06/2014", lo transformas a fecha con CTOD("12/06/2014") y saldrá bien de acuerdo con SET DATE BRITISH (o el que corresponda usar).
Si no quieres depender de SET DATE, tienes que escribir una función

PROCEDURE CharToDate(tcFecha)
*-------------------------------------------------
if occurs("/" , tcFecha) # 2 or len(tcFecha)#10
Messagebox("formato inválido")
return
endif
LOCAL ARRAY gaLines
alines(gaLines,tcFecha,1,"/")
* El array galines se conformará como cDia, cMes , cAño
REturn Date( Val(gaLines[3]) , Val(gaLines[2]) , Val( gaLines[1] )

y ahí, por ejemplo
SELECT TABLA
REPLACE CampoFecha with CharToDate( lcFecha )

También puedes usar una función como la que sigue para saber si un alfanumérico podría ser una fecha
Con esta función puedes cambiar la anterior

PROCEDURE CharToDate(tcFecha)
*-------------------------------------------------
if !TestFecha(tcFecha)
Messagebox("Formato Inválido")
REturn
endif

LOCAL ARRAY gaLines
alines(gaLines,tcFecha,1,"/")
* El array galines se conformará como cDia, cMes , cAño
REturn Date( Val(gaLines[3]) , Val(gaLines[2]) , Val( gaLines[1] )

Gracias por la ayuda, poniendole el CTOD( salio perfecto! y ya puedo agregar.