Select Identity - Erro/

Estou usando um select pra poder pegar o ultimo id de uma tabela, lembrando que os ID's são gerados de um modo diferente, não em sequencia, como a tabela aspnet_users

Estou querendo com que uma variavel receba o valor do ultimo ID pra que eu possa ligar com outra tabela. Aqui está o código

Dim MyConn As New SqlConnection(ConfigurationManager.ConnectionStrings("xxxxxxxxxxxx").ConnectionString)

MyConn.Open()

 Dim strSelect As SqlCommand = New SqlCommand("select IDENT_CURRENT('aspnet_users')", MyConn)
 Dim dr As SqlDataReader = strSelect.ExecuteReader
 Dim UserId As String = dr(0)
 Response.Write(UserId)
 txtCodigo.Text = UserId
 MyConn.Close()Está dando esse ero "Invalid attempt to read when no data is present." e quando coloco no lugar de (0) o nome do campo dá este erro " UserIdDescription: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.IndexOutOfRangeException: UserId"

Como será que faz isso, mexi e remexi este código, está até bem bagunçadinho