RE: problemas con insert en evb¡¡¡¡

El de añadir al final lo hizo con rs.addnew pero ahora tengo este otro con borrar. Me dá este error: "a literal value in the command could not be converted to the correct type due to a reason other than data overflow.

Private Sub cmd_borrar_Click()
Dim x As String
Set rs = CreateObject("ADOCE.Recordset.3.0"
x = prueba.Text
rs.Open ("Delete clientes where codigo= x "
rs.Open "clientes"
MsgBox rs.RecordCount
rs.Close
Set rs = Nothing
End Sub

Si pongo la variable no lo coje, sin embargo si pongo un número directamente sí, ¿Que le falta?.
Salu2</TR>