ayuda cn visual 6

[emilio21]

hola!!.. yo lo haria asi:

Proyecto -> Referencias -> Microsoft DAO 3.x Object Library

Private Sub CommandButton1()

Dim db as DataBase
Dim rs as RecordSet
Dim hora

set db = opendatabase("url_de_la_base_de_datos_access")
set rs = db.openrecordset("SELECT * FROM tabla_donde_guardo_la_hora")

hora = format(Now, "hh:mm:ss")

rs.addnew
rs.fields("campo") = hora
rs.update

msgbox "La hora guardada es: " & hora

rs.close
db.close

set db = nothing
set rs = nothing
End Sub


espero te sirva!!