Imports CrystalDecisions.CrystalReports.Engine
Public Class Form1

    Private 印刷ドキュメント As ReportDocument = New ReportDocument()

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        Dim reportPath As String = _
            "C:\user\vs\CrystalReport_01\CrystalReport_01\CrystalReport1.rpt"
        印刷ドキュメント.Load(reportPath)

        Me.CrystalReportViewer1.SelectionFormula = "{社員マスタ.性別} = 0"
        Me.CrystalReportViewer1.ReportSource = 印刷ドキュメント

    End Sub
End Class