Dim dt As DataTable
Dim sQry As String
 
Dim i As Integer = DataGridView1.CurrentRow.Index
 
sQry = "SELECT * FROM MyTable WHERE Id = " & DataGridView1.Item(0, i).Value
 
Dim da As New SqlClient.SqlDataAdapter(sQry, conSQLServer)
 
da.Fill(dsMain, "dtDataTable")
 
Dim rp As New ReportDataSource(dsMain.DataSetName, dsMain.Tables("dtDataTable"))
Form1.rptViewer.LocalReport.ReportPath = "C:\Users\Ich\Documents\Visual Studio" & _
  "2008\Projects\Juchee\MyReport.rdlc"
 
Form1.rptViewer.LocalReport.DataSources.Add(rp)
Form1.rptViewer.RefreshReport()
Form1.ShowDialog()