VBA ADODB.Recordset to array

Public Function staffIndex(Optional staffName As String)   
    ' 搜尋使用者資料
    Set myDB = New clsADODBopen
    sqlStr = "SELECT 識別碼, 姓名 FROM staffs WHERE 姓名 LIKE '%" + staffName + "%' ORDER BY 識別碼"
    myDB.subOpen sqlStr

    staffIndex = myDB.theRST.GetRows(myDB.theRST.RecordCount)
End Function