Sub DescriptionGet(ioForm As Form, isDescriptionDB_KEY As String)
Dim ldb As DAO.Database
Dim lrs As DAO.Recordset2
Dim lsWhere As String

Dim lsShort As String
Dim lsTitle As String
Dim lsContentCLOB As String
Dim lsContentBLOB As DAO.Field2
Dim lrsAttachment As DAO.Recordset2


If isDescriptionDB_KEY = "" Then
MsgBox "No description DB_key in Sub"
Else
lsWhere = "SEDSCRID = """ & isDescriptionDB_KEY & """" & _
         "AND LNG = """ & ioForm.SubFormLanguage.Form.ListboxLanguage.Value & """"
Set lrs = CurrentDb.QueryDefs("AllBlob").OpenRecordset
lrs.FindFirst lsWhere
If lrs.NoMatch Then
    MsgBox "No description BLOB"
Else
    If Not IsNull(lrs.Fields("ONLY4ACCESS_TEXT")) Then
        lsContentCLOB = lrs.Fields("ONLY4ACCESS_TEXT").Value
    End If
    If Not IsNull(lrs.Fields("ONLY4ACCESS_ATTACH")) Then
        Set lsContentBLOB = lrs("ONLY4ACCESS_ATTACH")
        Set lrsAttachment = lsContentBLOB.Value
        Do While Not lrsAttachment.EOF
'            ioForm.SubFormEntityDescription.Form.AttachmentContentBlob.FileName = lrsAttachment("FileName")
'            ioForm.SubFormEntityDescription.Form.AttachmentContentBlob.FileData = lrsAttachment("FileData")
'
''            ioForm.SubFormEntityDescription.Form.AttachmentContentBlob.Update
            lrsAttachment.MoveNext
        Loop
    End If
End If
lrs.Close
ldb.Close

Set lrs = Nothing
Set ldb = Nothing
End If
End Sub

SELECT SEDSLBO.DB_KEY, SEDSLBO.SEDSCRID, SEDSLBO.LNG, SEDSLBO.ONLY4ACCESS_TEXT, SEDSLBO.ONLY4ACCESS_ATTACH
FROM SEDSLBO;