Foros del web, para los que viven de bits

Saludos, soy nuevo en este foro bueno tambien programando por lo que necesitare mucho de su ayuda el problema que tengo es que estoy aprendiendo ADO y me genera este error cuando quiero añadir informacion a la base de datos.

ese es el error que me produce:

Error '-2147217887 (80040e21)' en tiempo de ejecucion
la operacion de multiples pasos de OLE DB genero errores compruebe los valores de estado de OLE DB si es posible. No se realizo ningun trabajo.

y ese es el codigo que estoy usando para grabar la información.

set rsContactos=new adodb.recordset

rsContactos.Open ("SELECT * FROM tblContactos",strConexion,asOpenStatic,adLockOptim istic)
rsContactos.AddNew
rsContactos("Apellidos")=txtApellidos.text
'... (5 campos mas)
rsContactos("Comentario")=txtComentario.text
rsContactos.Update

rsContactos.Close

creo que es porque no ingresan informacion en todos los campos, pero no genera el error cuando ingresan unos campos y otros no.

Espero que puedan ayudarme, ya llevo mucho tiempo con esto .
Pondria las imagenes pero... es mi primer mensaje

Muchas Gracias

Hola. Bienvenido.
Si te funciona bien en algunas ocasiones debo entender que la ConnectionString y demás son correctos.
Lo que puede estar ocurriendo (aunque en esos casos lo dice) es que alguno de los campos de la base de datos no acepte contenido de longitud 0.
Si este fuera el caso, una solución no ideal pero si efectiva es que antes de pasarle cada TextBox al Field correspondiente le hagas:

If TextBox.Text = "" Then TextBox.Text = " "

... o sea que si no tiene nada le pones un espacio.
A ver como te anda.
Saludos.

Muchas gracias, la solución que me diste funciona bastante bien , solo por pregunta esa seria la unica forma hacerlo ? gracias por tu solución

No. La otra forma es permitir que los campos de texto puedan admitir contenido de longitud 0. Pero eso no se hacerlo desde VB, cuando lo necesito lo hago desde Access. (no le cuentes a nadie).

Saludos.