pasar fecha a string

[encore121]

Creo ke mas bien el problema esta en tu funcion AppFechaSistema porke puedes hacer lo siguiente sin generar algun error:

Dim sp_param As String
Dim AppFechaSistema As Date
AppFechaSistema = Now
sp_param = Format(AppFechaSistema, "yyyy-mm-dd")
MsgBox sp_param

sp_param = AppFechaSistema
MsgBox sp_param

sp_param = Format(AppFechaSistema, "Short Date")
MsgBox sp_param

como puedes ver puedo asignarle el valor de una fecha a la variable de tipo string, pruebalo y veras, asi ke el problema tal vez este en tu funcion revisala y cuentas ke paso