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

[Avellaneda]

Iniciado por 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

Hola, en un principio el código parece correcto y 'a' debería mostrar el ID_REG insertado.

Habría que ver cómo haces la conexión a la bd y también qué hace el procedimiento 'Listo'

[velma]

Listo solo inhabilita as cajas de texto y combos, y mi conexion esta de la siguiente forma:

este esta en un formulario de inicio

Private Sub Form_Load()
db.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=telmex;Initial Catalog=Telmex"
db.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=telmex;Initial Catalog=Telmex"
End Sub

yu este en un modulo de conexiones
Option Explicit

Public Cadena As String 'string que contiene la cadena de conexion
Public iSql As String 'string que contiene la instruccioón SQL
Public Usuario As String 'identifica el nombre de usuario
Public db As New ADODB.Connection 'cadena de conexión de accseso a datos ADO
Public rec As New ADODB.Recordset 'recordset de accseso a datos ADO

[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