Crystal Reports с помощью команды SELECT

Question

Я подключился или добавил в поля базы данных мою базу данных (MS ACCESS).Но дело в том, что я не могу распечатать или даже просмотреть свои данные.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim str As String
    str = "Select * From Grade2 WHERE [LRN] = '" & TextBox2.Text & "'"
    Command.CommandText = str
    Command.Connection = Connection
    Adapter.SelectCommand = Command
    Adapter.Fill(DataSet)

    reportname = "Report1"
    Dim reportpath As String = Application.StartupPath & "\" & reportname & ".rpt"
    If Not IO.File.Exists(reportpath) Then
        Throw (New Exception("Unable to locate report file: " & vbCrLf & reportpath))
    End If

    Dim rptdocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    rptdocument.SetDataSource(reportpath)
    Print.CrystalReportViewer1.ReportSource = rptdocument
    Print.CrystalReportViewer1.Refresh()

    Print.ShowDialog()
End Sub