Public Class clsSQL
Public Overloads Shared Sub ExecSQL(ByVal p_strSQL As String, ByRef p_Identity As Int32)
        Dim Connection As SqlConnection
        Dim Command As SqlCommand
        Connection = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString").ToString)
        Connection.Open()
        Command = New SqlCommand(p_strSQL, Connection)
        p_Identity = CType(Command.ExecuteScalar, Int32)
        Connection.Close()
    End Sub
End Class
' вызов в коде
.....
Dim strSQL As String
Dim NewID As Int32
strSQL = "INSERT INTO Posts(UserUID,ParentUID,Post) VALUES(" & _
                     CStr(Session("UserUID")) & "," & CStr(TID) & "," & Topic & ")"
strSQL &= " SELECT @@IDENTITY "
Call clsSQL.ExecSQL(strSQL, NewID)