Я не могу отправить набор записей и подключение к функции в VBA

Question

Я пытаюсь создать функцию VBA для открытия набора записей базы данных.

Я передаю все параметры, необходимые для recordset.open, но получаю сообщение об ошибке:

отсутствует выражение

в этой строке:

RS.Open strSQL, oConn, adOpenStatic, adLockReadOnly, adCmdText

Вот функция:

Function sql_request(oConn, RS, part_no) As Variant
    strSQL = "SELECT * FROM KC_PROD.DOC_ISSUE WHERE DOC_NO = " & parts_no
    RS.Open strSQL, oConn, adOpenStatic, adLockReadOnly, adCmdText
    dataArray = RS.GetRows
    sql_request = dataArray
End Function

и здесь я вызываю функцию:

Set oConn = New ADODB.Connection
oConn.Open
Set RS = New ADODB.Recordset
data_array = sql_request(oConn, RS, "113946")

У меня нет проблем с вызовом

RS.Open strSQL, oConn, adOpenStatic, adLockReadOnly, adCmdText

из основного саба