Click on Project menu
then Click Add New Item
Choose Crystal Report
Give the name of the report that you want to give
Click on Add Report

Take crystal report from toolbox .Take New form (I named it 
frmRpt)Then take crystal report Viewer from tool box and 
place it on new form(frmRpt) I named crystal report Viewer 
as crptVW 
double click on newform(frmRpt) and place this code---

Public Class frmRpt
    Public strRptName As Object
    Public strRptFilter As String
    Private Sub frmRpt_Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load
        If strRptFilter <> "" Then
            crptVW.SelectionFormula = strRptFilter
        End If
        crptVW.ReportSource = strRptName
        crptVW.Show()
    End Sub
End Class


now if u want to call it on button_click then paste this 
code on that button_click event ------

Dim objRpt As New frmRpt
        objRpt.strRptName = New crList
        ' objRpt.strRptFilter = "{ConsultantMaster.ConId}=" 
& cboConIDX.SelectedValue 'if want to filter
        objRpt.Show()

'now u can open as many crystal report just paste code 
above on button_click()