Comment définir reportdatasource à rdlc rapport à vb.net?

Je développe une Application Winform et je suis nouvelle dans les Rapports (rdlc). Je veux extraire des données à partir de la base de données et de les définir comme source de données pour mon rapport dans le code. Je suis à l'aide de Vb.net et voici mon code, j'ai essayé...

Dim conn As OleDbConnection
Dim adpt As OleDbDataAdapter
Dim rs As DataTable
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    conn = New OleDbConnection
    conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\tblentries.mdb"
    conn.Open()
    adpt = New OleDbDataAdapter("select * from tblentries", conn)
    rs = New DataTable
    adpt.Fill(rs)
    Dim ds As DataSet = New DataSet("DataSetOne")
    ds.Tables.Add(rs)
    ReportViewer1.LocalReport.DataSources.Clear()
    ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("Report1", ds.Tables(0)))
    ReportViewer1.LocalReport.Refresh()
    Me.ReportViewer1.RefreshReport()
End Sub

Résultat que j'obtiens est Vide Rapport, Veuillez me Suggérer, je suis nouveau sur le reporting et les codes que j'ai posté sont renvoyés par google. Merci, je suis en Attente.....