Obtener ultimo id ingresado

[jaullo]

Puedes hacerlo asi

Código ASP:

Public Shared Sub buscarcodigodireccion(ByVal accion As String)
            If conexion.State = Data.ConnectionState.Open Then
                conexion.Close()
            End If
            conexion.Open()
            Dim cM As New SqlCommand("select .....", conexion)
            Dim dR As SqlDataReader = cM.ExecuteReader()
            While dR.Read()
                codigo = dR("cod_dir")
 
            End While
            dR.Close()
            ' conexion.Close()
            codigo += 1
 
        End Sub