VBA: набор записей ADODB - возвращаемое значение SQL-запроса - преобразование в число, возвращаемое функцией

Мой SQL-запрос:

SELECT fieldAge FROM tbl1 WHERE fieldName = 'Aaron'

Он всегда будет возвращать только 1 число.

Я хочу, чтобы число было возвращаемым значением в функции - получая ошибку в этой строке.

Спасибо!

Function getAge(thisName as String) As Double
    Dim cn as ADODB.Connection
    Dim rs as ADODB.Recordset
    Dim strSQL as string
    Dim strSomething as string

    strSQL = "SELECT fieldAge FROM tbl1 WHERE fieldName = 'Aaron'"

    Set cn = New ADODB.Connetion
    cn.ConnectionString = {connection string here}
    cn.open
    rs.open strSQL, cn
    While Not rs.EOF
        strSomething = rs!fieldAge
    Wend
    'rs.Close
    cn.Close
    'Set rs = Nothing
    Set cn = Nothing

    getAge = rs.Field(0).Value  // Doesn't work

End Function