Mine

'Obtener el Id del Alumno
    Public Function getMaxIdAlumno() As Integer
        Dim conexion As New SqlConnection(Me.CadenaConexion)
        Dim idAlumno As Integer
        Try
            idAlumno = CType(SqlHelper.ExecuteScalar(Me.conexion, "inf2450883g2dba.GetMAxIdAlumno"), Integer)
            'idAlumno = SqlHelper.ExecuteScalar(Me.conexion, "inf2450883g2dba.GetMaxIdAlumno")
            'If (idAlumno < 1000) Then
            'idAlumno = 1001
            'End If
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return idAlumno
        Finally
            conexion.Dispose()
        End Try
        Return idAlumno
    End Function