OLE问题

有一个数据库，里面有一张表，有三个字段编号姓名简历，如果简历字段是OLE字段。在窗体上添加编号、姓名两个文本框。还有一个OLE控件为简历。两个命令按钮为添加与保存。
用data控件连接此数据库。将字段与data控件绑定。
下面的过程可否写成这样?sub 添加_click
data1.recordset.addnew
end sub
Private Sub 保存_Click()
Dim fn As Integer
fn = FreeFile
Open App.Path & "\wj.tmp" For Binary As fn
OLE1.FileNumber = fn
OLE1.Action = 11
Seek fn, 1
Call file_to_field(fn)
Close fn
Kill App.Path & "\wj.tmp"
Data1.Recordset.Update
MsgBox "保存完毕"
End SubSub file_to_field(fn1 As Integer)
Const blocksize = 20
Dim blocknum As Integer
Dim over As Long
Dim sz As String
blocknum = (LOF(fn1) - Seek(fn1) + 1) \ blocksize
over = (LOF(fn1) - Seek(fn1) + 1) Mod blocksize
sz = Space$(blocksize)
For i = 1 To blocknum
Get fn1, , sz
Data1.Recordset.Fields("resume").AppendChunk (sz)
Next i
sz = Space$(over)
Data1.Recordset.Fields("resume").AppendChunk (sz)
End Sub