problemas con insert en evb¡¡¡¡

Mi problema es el siguiente, una vez creada una tabla quiero insertar registros en ella mediante insert pero me sale siempre error.
Set rs = CreateObject("ADOCE.Recordset.3.0"
codigo = Text1.Text
rs.Open "INSERT INTO clientes (nombre) VALUES (codigo) "
Así no funciona, sin embargo si pongo directamente un valor sí que funciona, pero claro quiero insertar lo que haya en unas cajas de texto.
Con delete tampoco me vá, pongo esto:
rs.Open ("Delete * from clientes where codigo= 1 " y me casca.
Haber si alguíen me puede ayudar
Salu2</TR>