Como llamar un reporte de access desde vb6

desarrolle el sig código para intentar llamar un reporte pero no funciono. Agradecería que me ayudaran ya que es para un proyecto de la escuela

Dim acc As Access.Application

Private Sub Picture1_Click()

Set acc = CreateObject("Access.Application")

With acc
.OpenCurrentDatabase App.Path & "database-tintoreria.mdb", False
Access.Visible = True
.DoCmd.OpenReport ("Ticket"), acViewPreview
.CloseCurrentDatabase
.Quit
End With
Set acc = Nothing
End Sub