Base de donnée avec ADO en vb

dans la vie il faut se battre. defend toi mon pot .
c'est le regime. je suis sure que c 'est facil

salut
tout d'abord vous devez :
- matriser le code sql
- déterminir l'emplacement que vous afficher le résultat de la recherche
on considere la base de données et "collège.mdb"
la table des données est "eleve" avec les champs suivants: code_eleve, nom et prénom

la situation problème est de donner le code d"eleve et afficher le nom et le prénom
moi j'utilise le modéle ADO:

soit l'interface suivante:
une zone de texte avec le nom txtCode
un commande pour effectuer la recherce avec le nom cmdOK
une labe1 pour afficher le nom trouvé avec le nom lblNom

une labe2 pour afficher le prénom trouvé avec le nom lblprénom
e travail à faire est d 'entrer le code d'eleve dans la zone de texte txtcode et afficher le nom sur lblNom et le prénom sur lblPrénom:
le code est :

d'abord ajouter la bibliothèque de modéle ADO
cliquez sur le menu projet
cliquez suir réference
cocher microsoft .ado library 2.5"
le code est
private sur cmdOk_click()

'créer une connexion
dim ct as adodb.connection
' créer un jeu d'enregistrement
dim rc as adodb.recordset
'créer une instance de ct et rc
set ct = new conncetion
set rc =new recordset
' déterminer le fournisseur de données
ct.provider="microsoft.jet.oledb.4.0"
'ouvrir la base de donnes collège.mdb
ct.open "collège.mdb"
' vous dever enregitrer le projet vb et la base de donnes access eleve.mdb dans meme emplacement
' la requete Sql pour faire la recherche
reqRech="select * from table eleve where code_eleve'" & txtcode.text & "'"
' exécuter la requete
rc.open reqrech,ct

if rc.recordcount =0 then
msgbox "eleve introuvable enter le nouveau code"
exit sub
end if
lblnom.caption=rc(1)
lblprénom.caption=rc(2)

'fermer le jeu d'enregistrement rc
rc.close
'liberer la variable rc
set rc=nothing
'fermer la connection
ct.close
'liberer la variable ct
set ct = nothing

end sub


s'il y a d'autre problème mon email est mbarek1891@hotmail.com