Estoy en un dilema que me rompe la cabeza
![:-S](http://static.forosdelweb.com/fdwtheme/images/smilies/crap.png)
![wacala](http://static.forosdelweb.com/fdwtheme/images/smilies/wacala.png)
En el ejemplo le aumente uno para que cuando salga el form se muestre en el campo el "Id"+1 (no se si el comando este bien
![Serio](http://static.forosdelweb.com/fdwtheme/images/smilies/molesto.png)
Hasta ahora estoy en esto
Dim csql As String
Dim con As New ADODB.Connection
Dim reg As New ADODB.Recordset
With con
.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.ConnectionString = "Provider=SQLOLEDB;Data Source=VIRTUALXP-76997;Integrated Security=SSPI;Initial Catalog=PSAKT"
con.Open()
End With
csql = "SELECT MAX (Id)+1 FROM TblBautizos"
reg = con.Execute(csql)
De ahi no se como hacer para que me muestre el contenido dentro de un text box. Agradeceria mucho su pronta respuesta
![Cool](http://static.forosdelweb.com/fdwtheme/images/smilies/cool.png)