SoloCodigo

Hola amigos de solocodigo, esta es mi primera vez en este foro y espero me puedan ayudar. estoy realizando un programa de una bitacora de lost and found y ya casi la tengo con excepcion  de l reporte, encontre un programa que realiza reportes en la web y hace lo que necesito, lo anexe  a mi programa y lo ajuste usando mi información y mis datos, (lo mas seguro es que algo no haya hecho algo bien) y cuando genero el modulo de reportes me marca el error en esta parte del código.

Private Sub Form_Load()
Move (Screen.Width - Width)  2, (Screen.Height - Height)  2
   
Set cn = New Connection ******************************aqui marca el error diciendo "el uso de la palabra clave new no es valido"
   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"
***el codigo de abajo es el original y el de arriba es el de mi programa, mi bd se llama bitacora  
 'cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=MS Access Database;DBQ=C:Bitácora_Fairmont_respusbBitacora.mdb;DefaultDir=C:Bitácora_Fairmont_respusb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
End Sub
el programa cuando se genera solo si funciona a la perfeccion, pero no se que estoy haciendo mal, por favor necesito que me ayuden para corregirlo, si necesitan mas datos de mi error este es mi correo Rock_park185@hotmail.com

gracias amigos de 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.

de hecho no solo utilizo codigo por que si, lo voy analizando para comprenderlo, asi he aprendido bastante por que veo como lo hacen y parto de ello.
por otra tengo un modulo en el cual lo tengo declado como publica

public cn as connection y de igual manera ya lo intente como me propusiste, pero me sigue marcando el mismo error, y sigo sin saber que hacer  "el uso de la palabra clave new no es valida", agradeceria me propusieras otra solucion, de antemano nuevamente muchas gracias.