Private Declare Function FIOPadeg Lib "Padeg.dll" Alias "GetFIOPadegAS" _
  (ByVal pLastName As String, ByVal pFirstName As String, _
   ByVal pMiddleName As String, _
  ByVal nPadeg As Long, ByVal pResult As String, ByRef nLen As Long) As Integer

Public Function Padeg(ByVal pLastName As String, ByVal pFirstName As String, _
   ByVal pMiddleName As String, ByVal nPadeg As Long) As String
Dim tmpS As String
Dim nLen As Long
Dim RetVal As Integer
  nLen =  255 
  tmpS = String(nLen,  0 )
  RetVal = FIOPadeg(pLastName, pFirstName, pMiddleName, nPadeg, tmpS, nLen)
  If RetVal = - 1  Then MsgBox "Недопустимое значение падежа - " & "(" & nPadeg & ")", , "Склонение ФИО"
  Padeg = Mid(tmpS,  1 , nLen)
End Function

SELECT Padeg([Ф],[И],[О], 2 ) AS Родительный,
       Padeg([Ф],[И],[О], 3 ) AS Дательный,
       Padeg([Ф],[И],[О], 4 ) AS Винительный,
       Padeg([Ф],[И],[О], 5 ) AS Творительный,
       Padeg([Ф],[И],[О], 6 ) AS Предложный
FROM ФИО;

? Padeg("Иванов","Иван","Иванович", 2 )

Declare Integer FIOPadeg In Padeg.dll As GetFIOPadegAS;
  (String pLastName,String pFirstName,String pMiddleName,;
  Long nPadeg,String pResult,Long @ nLen)
   
Function Padeg
LPARAMETERS pLastName,pFirstName,pMiddleName,nPadeg
Local tmpS,nLen,RetVal
  nLen =  255 
  tmpS = replicate(" ",nLen)
  RetVal = FIOPadeg(pLastName, pFirstName, pMiddleName, nPadeg, tmpS, nLen)
  RETURN substr(tmpS,  1 , nLen)
End Function