Probléme d'execution d'un curseur sous vb.net 2008

Salut,

J'ai un probléme d'exécution d'un curseur sous le vb.net 2008.
Je veux récupérer des données à partir le nom séléctionée dans le combobox.

Curseur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'Permet de retourner les enregistrements qui obeissent à la requete SELECT sous forme d'un DataView
    Public Function Curseur(ByVal SQL As String) As DataSet
        'Déclaration d'un objet Command
        Dim CMD As New OleDb.OleDbCommand(SQL, Me.CNN)
        'Declaration d'un Objet DataSet
        Dim CDS As New DataSet("Requete")
        'Declaration d'un Objet DataAdapter
        Dim CDT As New OleDb.OleDbDataAdapter(CMD)
        CDT.MissingSchemaAction = MissingSchemaAction.AddWithKey
        'remplir le dataset a partir de labase de données
        CDT.Fill(CDS, "Resultat")
        'declaration d'un objet dataview
        Dim MaVue As New DataView(CDS.Tables("Resultat"))
        'retourner l'objet dataview
        Return CDS
        'liberation des ressources utilisés par les objets
        CMD.Dispose()
        CDS.Dispose()
        CDT.Dispose()
        'destruction des objets
        CMD = Nothing
        CDS = Nothing
        CDT = Nothing
    End Function

Et voila l'appel du curseur :

Code:

1
2
3
4
5
6
7
8
9
Dim a As String
        Dim b As Integer

        a = CStr(Cprod.Text)
        "cprod nom de combobox"
        SQL = "select Format_ from R_P_T where produit_type= " + a
        MsgBox(a)

        b = P.Curseur("select Format_ from R_P_T where produit_type= " + a)

Mais le probléme quand je l'exécute elle me souligne sous b.
Merci pour votre aide:(