Foumulaire insert to bdd

Bonjour,


je veux recupere la valeut d'un textbox pour la rentre dans une base de données (access).j'y suis arrive le seul probleme que la valeur rentre n'est pas le texte mais son nom

voici le code

Label1.Text = TextBox1.Text


Dim obj_ConnectADODB
Dim fsFichierAccess
Dim str_ACCESSConnectCmd
Dim obj_DBACCESS_tbl_ComputerList

obj_ConnectADODB = CreateObject("ADODB.Connection")
fsFichierAccess = "C:\Users\Idefix\Documents\Visual Studio 2008\Projects\WindowsApplication2\WindowsApplication2\Base de données1.mdb"
str_ACCESSConnectCmd = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & fsFichierAccess
obj_ConnectADODB.Open(str_ACCESSConnectCmd, fsFichierAccess, "")
obj_DBACCESS_tbl_ComputerList = CreateObject("ADODB.Recordset")



obj_DBACCESS_tbl_ComputerList.Open("INSERT INTO Presse (nom)VALUES ('TextBox1.Text')", obj_ConnectADODB, )

la valeur enregistre est : TextBox1.Text


comment mettre sa valeur texte ?

merci d'avance

PS/ sous VB2008