Code of vb (part-3)

Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

    Dim stDocName As String

    stDocName = "Area wise Monthly Donation PaidReport"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command3_Click:
    Exit Sub

Err_Command3_Click:
    MsgBox Err.Description
    Resume Exit_Command3_Click
   
End Sub




Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "From_1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
   
End Sub