При создании recordset'a, с помощью SQL. возникла необходимость вытягивать поля из таблицы .c предварительной обработкой личной функцией.
…..
dbpath = App.Path & "\elcomp.mdb"
Set dbel = DBEngine.Workspaces(0).OpenDatabase(dbpath, True)

notesql = "select KG,suncryp(NM) as nm1,suncryp(PRF) as prf1,suncryp(PROD) as prod1,CEPR,IND,PHOTO,PARAM1 "

notesql = notesql & "from elmat "
notesql = notesql & "order by ID_E "

Set rsprice = dbel.OpenRecordset(notesql)
…..
Public Function suncryp(isxt As String) As String
Dim res, parol As String, i, T As Long
parol = test
If Not IsNull(isxt) Then
res = ""
For i = 1 To Len(isxt)
T = CLng(Asc(Mid$(isxt, i, 1))) - CLng(Asc(Mid$(parol, i, 1)))
If T <= 0 Then
T = T + 256
End If
res = res & Chr(T)
Next
suncryp = res
Else
suncryp = pust
End If
End Function
…..

При выполнении выскакивает ошибка - 3085.


Если кто сталкивался с такой ситуацией - помогите.

Всем Успеха!