Visual Basic - MOSTRAR DATO DE LA BD EN UN MSGBOX

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_GEN", 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

.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)

Creo que deberia quedar asi

.AddNew
!TIPO_CON = CbContrata.Text
!TELEFONO = TxtTel.Text
!Nombre = TxtNom.Text
!CALLE = TxtCalle.Text
!COLONIA = TxtCol.Text
!ESTADO = CbEdo.Text
.Update
a=!ID_REG
End With
msgbox etc ......

AQUI LA SOLUCION

sQuery6 = "select max(id_reg)as maximo from Base"
Rs6.Open sQuery6, cnn6, adOpenForwardOnly, adLockOptimistic
Rs6.ActiveConnection = Nothing
TxtId.DataField = "maximo"
Set TxtId.DataSource = Rs6
A = Val(TxtId.Text)
Ok = MsgBox("Han sido dado de alta los datos. Con la orden de servicio temporal -- " & A, vbInformation, "Captura.")
Set Rs6 = Nothing
cnn6.Close
Set cnn6 = Nothing