OUVRIR UN REPORT ACCESS À PARTIR DE VB

Public Sub Imprimer(NomDoc As String, Optional Preview As Boolean = False)
    Dim AppAccess As Access.Application
    Dim strDB As String
    Dim strReportName As String
    On Error GoTo gerr
    ' Position de la base de donnée
    strDB = "C:\GiteVB\gite.mdb"
    Set AppAccess = New Access.Application
    ' Open database in Microsoft Access.
    AppAccess.OpenCurrentDatabase strDB

    If Preview Then
        AppAccess.Visible = True
        AppAccess.DoCmd.OpenReport NomDoc, acViewPreview, , "Id_Rens =" & GvarIdDemande
    Else
        AppAccess.DoCmd.OpenReport NomDoc, , , "Id_Rens =" & GvarIdDemande
        MouseWait False
        MsgBox "Clickez OK quand l'impression de " & NomDoc & _
            " sera terminée"
        AppAccess.CloseCurrentDatabase
    End If

    Set AppAccess = Nothing
    Exit Sub
gerr:
Select Case Err.Number
    Case 0
    Case 2501
        Resume Next
    Case Else
        MsgBox "Erreur non gérée " & vbCrLf & Err.Number & " " & Err.Description
End Select
End Sub