bera
26 de Febrero del 2003

la conexion es ODBC y uso ODBCDirect

Set ws = CreateWorkspace(usuario, usuario, contraseña, dbUseODBC)

Set odb = ws.OpenConnection("", , False, "ODBC;DSN=Gestion;UID=" & usuario & ";PWD=" & contraseña & "")

Tengo hecho este informe con datos de una sola tabla que si que funciona

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
RS.Open "SELECT * FROM SINIESTROS_FINIQUITO WHERE EXPEDIENTE=" & frmGestionSiniestros.txtExpediente.Text & " ", "Gestion"

Report.Database.SetDataSource RS
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
RS.Close
End Sub