data type mismatch criteria error .. please help im getting this error .. and i don't know where's the error ..

Private Sub frmUpdateChapter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = D:\dbCAI.mdb"

        con.Open()

        Try

            da = New OleDb.OleDbDataAdapter("SELECT * from tblChapter WHERE ChapterNo='" & ComboBox1.SelectedItem & "'", con)

            da.Fill(ds, "tblChapter")
            dt = ds.Tables("tblChapter")

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        txtChapterName.Text = dt.Rows.Item(0).Item(0)

        con.Close()

    End Sub