CR+VB.net 'CrystalDecisions.CrystalReports.Engine.InvalidArgumentException'?

Hi guys, anyone know how to solve this?

An unhandled exception of type 'CrystalDecisions.CrystalReports.Engine.InvalidArgumentException' occurred in crystaldecisions.crystalreports.engine.dll

Additional information: Error in File C:\Users\rei\AppData\Local\Temp\temp_d189bc91-f8eb-489e-87d5-994c21c37f7d.rpt:
Invalid table number.

Code:

---

Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data

...

        Dim dbDset As New DataSet
        Dim dbConn As SqlConnection
        Dim connectionString As String
        Dim sql As String

        connectionString = "Integrated Security=SSPI; Initial Catalog=CBIS; Persist Security Info=False;"
        dbConn = New SqlConnection(connectionString)
        dbConn.Open()
        sql = "SELECT * FROM Patron"
        Dim dscmd As New SqlDataAdapter(sql, dbConn)
        dscmd.Fill(dbDset, "Patron")
        MsgBox(dbDset.Tables(0).Rows.Count)
        dbConn.Close()

        Dim objRpt As New CrystalReport1
        objRpt.SetDataSource(dbDset.Tables(0))
        CrystalReportViewer1.ReportSource = objRpt
        CrystalReportViewer1.Refresh()

---