actualizar DATAGRID conectado a BBDD Access mediante conexion ADO

elgranmon
17 de Mayo del 2004
Este es el codigo de mi botoncito:

Private Sub Command3_Click()

Dim tiempo As Date
Dim conexion As ADODB.Connection
Set conexion = New ADODB.Connection

With conexion
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source = C:Visualaplicativodb3.mdb"
.Open
End With

Dim nuevoregistro As ADODB.Recordset
Set nuevoregistro = New ADODB.Recordset


nuevoregistro.Open "Tabla1", conexion, , adLockOptimistic, adCmdTable

nuevoregistro.AddNew

nuevoregistro!Fecha = Date
nuevoregistro!Hora = Time
nuevoregistro!Unidad_Funcional = Combo2.Text
nuevoregistro!Entrada_Salida = Combo1.Text
nuevoregistro!Origen_Destino = Text1.Text
nuevoregistro!Codigo_de_Barras = TxtTerm.Text
nuevoregistro!Comentarios = Mid(Text2.Text, 1, 30)

nuevoregistro.Update
nuevoregistro.Close

Adodc1.Refresh
DGregistros.Refresh




End Sub

-----------

al hacer click no se añade nada, sin embargo si le doy dos veces el "cabron" lo añade...no se como solucionarlo...

please AYUDA!!

Gracias a todos!

Mon