Вызов функции в левой части присваивания должен возвращать ошибку варианта или объекта

Question

Я уже некоторое время разрабатываю программу в excel vba без каких-либо ошибок.Однако сегодня, когда adter только комментирует что-то за пределами вложенного файла, все мои функции теперь выдают Function call on left-hand side of assignment must return variant or object error ошибка.Смотрите пример ниже:

Public Function fGetEmployees() As Variant()

Dim oDB As ADODB.Connection
Dim oCM As ADODB.Command
Dim oRS As ADODB.Recordset
Dim strSQL As String

On Error GoTo Err:

strSQL = "SELECT StaffId, FirstName, LastName " & _
        "FROM ptqEmployees"

Set oDB = New ADODB.Connection
oDB.Open gcConn
Set oCM = New ADODB.Command

With oCM
    .ActiveConnection = oDB
    .CommandText = strSQL
    .CommandType = adCmdText
    Set oRS = .Execute
End With

fGetEmployees = oRS.GetRows()

oRS.Close
Set oRS = Nothing
oDB.Close
Set oRS = Nothing

Exit Function

Err:
    Call fLogDBError(Err.Number, Err.Description, 4)

End Function

Ошибка выдается в строке:fGetEmployees = oRS.GetRows()

Как уже было сказано, это уже некоторое время функционирует без проблем.Возможности для отладки также нет.

Кто-нибудь может помочь разобраться, в чем проблема?

Answer 1

Очень странно, но я экспортировал модуль, а затем импортировал его, и теперь он работает нормально.