请问怎么样用VB向Access中为OLE型字段添加图片?还有怎么样可以再在VB中取出?

Question

用一个二进制方件，再用以下方式：
Private Function PutPicDRoomPic() As Integer
'将数据库内的二进制文件转化成临时图片(楼层图片)
On Error GoTo PutPicError
Dim B As String
Dim BytFile() As Byte           '二进制数组
Dim TmpRs As New Recordset
Dim TmpBoolean As String
Dim GetPutPicPath As String
GetPutPicPath = App.Path & "\temp.bmp"
Set TmpRs = New ADODB.Recordset    TmpRs.Open "select * from FRoomInformation where DRoomNo='" & Trim(txtHiRoomNo) & "' and DBuildId='" & Trim(txtHiBuildId.Text) & "'", CnnSql, adOpenKeyset, adLockOptimistic
    If Not TmpRs.EOF Then
        B = TmpRs("DRoomPic").ActualSize
        If B <> 0 Then
            BytFile = TmpRs("DRoomPic").GetChunk(B)
            Open GetPutPicPath For Binary As #2
            Put 2, , BytFile
            Close #2
            TmpRs.Close
            PutPicDRoomPic = 1
        Else
            PutPicDRoomPic = 0
        End If
    Else
        PutPicDRoomPic = 0
    End If
    Exit Function
PutPicError:
    PutPicDRoomPic = 0
End FunctionPrivate Function GetPicDRoomPic() As Integer
'将临时图片转化成二进制文件存放在数据库内(楼层图片)On Error GoTo GetPicErrorDim B As String
Dim BytFile() As Byte           '二进制数组
Dim TmpRs As New Recordset
Dim TmpBoolean As String
Dim GetPutPicPath As String
GetPutPicPath = App.Path & "\temp.bmp"
    
    Open GetPutPicPath For Binary As #1
    B = LOF(1)
    ReDim BytFile(B)
    Get 1, , BytFile
 Set TmpRs = New ADODB.Recordset
 
        TmpRs.Open "select * from FRoomInformation where DRoomNo='" & Trim(txtHiRoomNo.Text) & "' and DBuildId='" & Trim(txtHiBuildId.Text) & "'", CnnSql, adOpenKeyset, adLockOptimistic
    If Not TmpRs.EOF Then
        TmpRs.Fields("DRoomPic").AppendChunk (BytFile)
        TmpRs.Update
    End If
    Close #1
    Exit Function
GetPicError:
    GetPicDRoomPic = 0
End Function