Mostrar dato de la base de datos en un MSGBOX

[Santo2010]

Primero deberias conocer la clave principal del registro ingresado, para esto yo lo haria asi
set cn=New ADODB.Connection
cn.open "nameBD" 'vale aclarar tomando la base de datos de un ODBC
set rec = new ADODB.Recordset
set rec=cn.execute("INSERT INTO tu_tabla(campo1,campo2,campo3) VALUES (valor1,valor2, valor3)") 'Primera sentencia
set rec=cn.conection("SELECT @@IDENTITY AS new_campo") 'esta sentencia te va ha dar el id autonumerico del registro que ingresaste en la primera sentencia
var1=rec.fields(0)
msgbox "El registro se ha guardado con el numero " & var1 &

Espero que te sirva de algo