Mostrar dato de la base de datos en un MSGBOX

[velma]

Hola

Estoy haciendo un sistema y en una de las ventanas despues de dar le alta el registro necesito que despues de guardarlo me arroje un mensaje que diga: "El registro se ha guardado con el numero ****"
donde **** es el ID_REG que se genera automaticamente en la base de datos lo trate de hacer con este codigo pero no funciona, me devuelve 0

Private Sub Guardar_Click()
If Comprobar = True Then
rec.Open "Select * from Base_Telmex", db, adOpenDynamic, adLockPessimistic, adCmdText
With rec
.AddNew
!TIPO_CON = CbContrata.Text
!TELEFONO = TxtTel.Text
!Nombre = TxtNom.Text
!CALLE = TxtCalle.Text
!COLONIA = TxtCol.Text
!ESTADO = CbEdo.Text
.Update
End With
TxtId.Text = rec.Fields("ID_REG").Value
a = Val(TxtId.Text)
Ok = MsgBox("Han sido dado de alta los datos. Con la orden de servicio temporal" & Str(a), vbInformation, "Captura.")
Listo
rec.Close
End If
End Sub