Visual Basic

"Public Function SelectDetail(ByVal Letter As Letter, ByVal SchoolNum As String) As DataTable"
     Public Function SelectDetail(ByVal Letter As Letter, ByVal SchoolNum As String) As DataTable
        Dim _dt As DataTable = New DataTable()
        Dim SchoolNumber As String = SchoolNum
  Const sql As String = "SELECT d.LINK,d.absdt  " _
                            & ",CAST(ROUND(SUM([ABSCNT]), 2) AS NUMERIC(24,2)) AS absentCount " _                             & "FROM ADetails d INNER JOIN AASTU s ON d.link = s.link  " _
                            & "INNER JOIN AASCH sch ON d.schoolnum = sch.schoolnum  " _
                            & "WHERE d.STULINK = @link " _
                            & "AND d.schoolnum =   + SchoolNum " _
                            & "GROUP BY d.LINK,d.absdt  " _
                            & "ORDER BY d.ABSDT ; "

       Using con As SqlConnection = DB.OpenConnectionS()
            Using da As SqlDataAdapter = New SqlDataAdapter(sql, con)

               Try
                    da.SelectCommand.Parameters.Add("@link", SqlDbType.Int).Value = Letter.Link
                    da.Fill(_dt)
                Catch ex As Exception

               End Try

           End Using
        End Using

       Return _dt
    End Function
   #End Region