The second question:
Private Sub btReport_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = acLeftButton) And (Shift = 1) Then
DoCmd.OpenReport "Wine samples", acViewPreview
ElseIf Button = acLeftButton Then
DoCmd.OpenReport "Wine...