SoloCodigo

claro, a lo que me refiero con generar es el hecho de echarlo andar, (menú>ejecutar F5) por ejemplo, el menú principal al darle clic al botón reportes, invoca el reporte eje. > reportes.show
                                                                  > menu.hide

voy a poner el codigo del formulario que genera el reporte, como te dije, lo encontre en la web y sustitui los datos originales poniendo los mios, practicamente no cambie nada, solo informacion, nada de estructura.

Option Explicit

'This program generates datareport with two parameter
'values set during runtime.I have used dataenvironment
'and Microsoft Jet.OLEDB 3.51 ver in this case.

'Autor By:Prakash.v


Private Sub cmdall_Click()
   
    query ("select * from articulos")
   
    If deparam.rscmdparam.State = adStateOpen Then
       deparam.rscmdparam.Close
    End If
   
    deparam.cmdparam CDate("01/01/1000"), CDate("01/01/2100")
   
    Load rptparam
    rptparam.Show
End Sub

Private Sub cmdprint_Click()
    On Error GoTo trap
       
    If deparam.rscmdparam.State = adStateOpen Then
       deparam.rscmdparam.Close
    End If
    deparam.cmdparam DTPicker1.Value, DTPicker2.Value
    Load rptparam
    rptparam.Show
trap:
    Exit Sub
End Sub



Private Sub DTPicker1_Change()
    query ("select * from articulos where fechareg between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#")
End Sub

Private Sub DTPicker2_Change()
query ("select * from articulos where fechareg between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#")
End Sub

Private Sub Form_Activate()
    query ("select * from articulos")
End Sub

Private Sub Form_Load()
    Move (Screen.Width - Width)  2, (Screen.Height - Height)  2
    Set cn = New Connection**********************************************AQUI EL ERROR
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=Admin;Data Source=" & App.Path & "bitacora.mdb;Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Global Partial Bulk Ops=2"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    rs.Close
    cn.Close
End Sub

Private Sub query(sql1 As String)
    Set rs = New Recordset
    rs.CursorLocation = adUseClient
    rs.Open sql1, cn, adOpenForwardOnly, adLockReadOnly
    Set MSHFlexGrid1.DataSource = rs
    MSHFlexGrid1.Refresh
End Sub
*************************************************************************************************************
LOS OTROS 2 COMPONENTES DEL REPORTE ES EL DATAREPORT (RPTPARAM) Y EL DATAENVIRONMENT (DEPARAM), SI DESEAS TE MANDO PICS DE LA CONEXION Y EN SU DEFECTO IGUAL PUEDO ENVIARTE MI PROYECTO COMPLETO, TU ME DICES COMPAÑERO, ESTOY A TUS ORDENES Y GRACIAS POR RESPONDERME.