lo que pasa es que al crear el reporte con archivos TTX y al tratar de sacar los datosde la base o al pasar el recordset no me muestra los datos tipo fecha el codigo queda algo aso :
Option Explicit
Dim CrApp As New CRAXDRT.Application
Dim Reporte As CRAXDRT.Report
Dim rs As ADODB.Recordset
Dim Recset As ADODB.Recordset
Dim FileReport As String
Private Sub Command4_Click()
Dim CrApp As CRAXDRT.Application
Dim Reporte As CRAXDRT.Report
Dim Conn As ADODB.Connection
Dim Recset As ADODB.Recordset
Set CrApp = New CRAXDRT.Application
Set Reporte = CrApp.OpenReport(App.Path & "\reportes\Reporte2.rpt")
Set Conn = New ADODB.Connection
conexion 'modulo de conexion a la base de datos
'Obtiene los datos de la tabla
Set Recset = New ADODB.Recordset
'Recset.Open "Select * from registrar where nombre='" & Text1 & "'", cn, adOpenDynamic
Recset.Open "Select * from registrar", cn, adOpenDynamic
Reporte.Database.SetDataSource Recset, 3, 1
'Establece el reporte a mostrar del control Viewer
Reporte.DiscardSavedData
CRV.ReportSource = Reporte
CRV.ViewReport
'Elimina la instancia del reporte para eliminar el bloqueo del archivo RPT
Set Reporte = Nothing
End Sub
'******************************************
el archivo ttx es el siguiente
'*********************************************
nombre String 100
carrera String 100
semestre String 100
finicio date
finicio lo he tratado de ller como string y como date pero nada
