Here in my code `DR.HasRows()` returns `True`, but `DR("LastID")` returns `DBNUll` while `SELECT IDENT_CURRENT ('SiteSection') AS 'LastID'` works in SQL Management Studio.

```
__SQLString= "SELECT IDENT_CURRENT ('SiteSection') AS 'LastID'"
Dim DR As SqlDataReader
ddConnect() 'It's my custom class that opens a connection to db, it works
DR = ddExecuteReader()
DR.Read()
If DR.HasRows() Then
    GetLastID = DR("LastID")
End If

```