Rcdl Report using dataset not displaying report.

[Gobindap]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Dim ds as DataSet
	Dim rep As LocalReport = ReportViewer1.LocalReport
	rep.ReportPath = "F:\My Work\VB\Report\Report3.rdlc"
	ds = obj.GetRecords("SELECT * from kar", "Kar")
	Dim RDS As New ReportDataSource()
	RDS.Name = ds.Tables("Kars")
	RDS.Value = ds.Tables("Kar")
	rep.DataSources.Add(RDS)
End Sub

Public Function GetRecords(ByVal sql As String, ByVal tblName As String) As DataSet
        ds = New DataSet()
        da = New SqlDataAdapter(sql, cn)
        da.Fill(ds, tblName)
        Return ds
End Function