Pues eso, estoy tratando de usar el control DAO con visual basic para conectar una base de datos access y no hay caso, la abre sin problemas pero no me deja ingresar datos.

1) Tengo cargada la referencia DAO
2) Tengo un modulo donde declaro DB como mi base de datos, R como recordset y declaro la funcion abrir que abre la base de datos para poder usarla.

Este es el boton ingresar:

    Set R = BD.OpenRecordset("vendedores", dbOpenTable)
    R.AddNew
        R("nven") = Val(Text1.Text)
        R("nombres") = Trim(Text2.Text)
        R("apellidos") = Trim(Text3.Text)
        R("rut") = Trim(Text4.Text)
        R("direccion") = Trim(Text5.Text)
        R("comuna") = Trim(Text6.Text)
        R("region") = Trim(Text7.Text)
        R("com_ven") = Val(Text8.Text)
        R("fono") = Val(Text9.Text)
        R("afp") = Trim(Text10.Text)
        R("salud") = Trim(Text11.Text)
        R("fecha") = MonthView1.Value
 
       t = MsgBox("Los datos se guardaron", 48)
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text9.Text = ""
    Text10.Text = ""
    Text11.Text = ""

nven que es numero de vendedor es el indice de la tabla vendedores, a ver si alguien me puede ayudar a ver el maldito error que me canse de buscar

Gracias de antemano!

Perdon me explique mal, no hay error, compila y genera exe, incluso cuando lo ejecuto y le doy al boton ingresar me tira el mensaje del text


Por eso me extraña, he buscado toda la tarde revisando una y otra vez, y como en ocasiones uno se nubla de tanto leer lo mimsmo mejor lo posteo, ves algun error?

Muchas gracias, sabia que terminaria siendo una tontera es una tarea a medias, sin calificacion pero de todas maneras cuando lo termine posteo el codigo completo que esta bien entretenido para principiantes como yo.

Quedo funcionando mil gracias!

    Set R = BD.OpenRecordset("vendedores", dbOpenTable)
    R.AddNew
        R("nven") = Val(Text1.Text)
        R("nombres") = Trim(Text2.Text)
        R("apellidos") = Trim(Text3.Text)
        R("rut") = Trim(Text4.Text)
        R("direccion") = Trim(Text5.Text)
        R("comuna") = Trim(Text6.Text)
        R("region") = Trim(Text7.Text)
        R("com_ven") = Val(Text8.Text)
        R("fono") = Val(Text9.Text)
        R("afp") = Trim(Text10.Text)
        R("salud") = Trim(Text11.Text)
        R("fecha") = MonthView1.Value
    R.Update
 
       t = MsgBox("Los datos se guardaron", 48)
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text9.Text = ""
    Text10.Text = ""
    Text11.Text = ""
    Text1.SetFocus

PD: Espero que vuelvas luego se te extraña en este subforo! 
Gracias