Trouble using Microsoft Report Viewer

I am trying to use the Microsoft report viewer for the first time and I am having problems. For now I am just trying to put a text box on the report with the value coming from a dataset. I have a reportviewer on my form. Here is the code I have so far. I am getting results from the database, I just don't know how to get it to the report.

Code:

---

    Private Sub ReportViewer1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReportViewer1.Load
        '
        Dim cstring As String
        cstring = "XXXXXXXX"
        Dim cnOrderinfo As SqlConnection = New SqlConnection(cstring)
        Dim sqlstring As String
        sqlstring = "Select * from Spa_Orderinfo where SerialNumber = '0800016'"
        cnOrderinfo.Open()
        Dim cmdOrderinfo As SqlCommand = New SqlCommand(sqlstring, cnOrderinfo)
        cmdOrderinfo.CommandType = CommandType.Text


        '
        Dim ds As ReportDataSource = Nothing
        Dim lr As New LocalReport
        Dim ta As ClassicSpaCoversDataSetTableAdapters.csc_OrderInfo
        Dim dt As ClassicSpaCoversDataSet.DataTable1DataTable = New ClassicSpaCoversDataSet.DataTable1DataTable
        '


        ta = New ClassicSpaCoversDataSetTableAdapters.csc_OrderInfo

        ta.Fill(dt)

        ds = New ReportDataSource("test", dt)
        lr.ReportPath = "c:\TestPrograms\ClassicSpaCovers_OrderEntry\Order.rdlc"
        lr.DataSources.Add(ds)
        MsgBox(dt.Rows(0).Item(0), MsgBoxStyle.Information)
        Me.ReportViewer1.RefreshReport()
    End Sub

---