Code Snippet
Dim sql As SqlClient.SqlTransaction
Dim con As New SqlClient.SqlConnection("Data Source=.;User ID=sa;Initial Catalog=Northwind")
con.Open()
sql = con.BeginTransaction
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("insert into valores values(10);select scope_identity()", con, sql)
Dim i As Integer
i = cmd.ExecuteScalar()
sql.Commit()
con.Close()
MsgBox(i)