Private Sub cmdAceptar_Click()
Dim sql as String
'Aqui van las validaciones en caso de que las hagas
sql="INSERT INTO RegEntradas (nom_reg,ape_reg,Fe_Na_Reg) VALUES ('" &txtNombre &"','" &txtApellidos &"','" &Format(_
Now,"'mmddyyyy HH:mm:ss") &"')" ' esto es si es un nuevo registro y nose si hagas alguna validacion si es asi las validaciones van donde te indico <-^
'Aqui va la ejecucion del sql no se con que funcion lo hagas yo hago algo asi
If EjecutaSQL(sql) <> 0 then
msgbox "Usuario registrado, Satisfactoriamente",vbinformation,"Mensaje"
else
msgbox "No se pudo registrar el Usuario",vbCritical,"Error"
end if
End Sub