RE: poque sigo teniendo problemas
Si he leído correctamente:
sunombre = InputBox("Introduce el nombre del cliente", "Electrónica Miajadeña"
Debug.Print valor + sunombre
Stop
Esa sentencia Stop no es necesaria, puede darte muchos problemas. Coincido con lo anteriormente dicho por JMMovilla, es un buen entrenamiento de adivino tu codigo. Está así en el IDE, sin indentar ni agrupar, ó es que pierde formato al pasarlo a txt? La forma ayuda a la legibilidad del código.
Otra cosita:
valor = Trim$(Text1(8))
cad = "insert into clientes(id_cliente,nombre) values (valor,sunombre)"
Aquí intentas crear una cadena SQL para insertar un nuevo registro, pero el contenido de valor se queda fuera, debe ser algo así:
cad = "insert into clientes(id_cliente,nombre) values (" & valor & "," & sunombre & "

"
para que los contenidos de variables Valor y SuNombre se sustituyan en la cadena.
Por lo demás , siento no ser de más ayuda, no logro descifrar el resto.</TR>