Private Sub readfile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yuangong.mdb" '得到最新添加的纪录
Set iConc = New ADODB.Connection
iConc.Open iConcstr
Set iRe = New ADODB.Recordset '打开表
iRe.Open "select * from yuangong_info where 职工编号='" & Trim(Form1.Text1) & "'", iConc, adOpenKeyset, adLockReadOnly
If iRe.EOF = True Then
MsgBox "该员工暂时无照片"
Else
Set iStm = New ADODB.Stream '保存到文件
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
.SaveToFile App.Path & "\4.jpg" '这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
End With
Form1.Picture1.Picture = LoadPicture(App.Path & "\4.jpg")
iRe.Close '关闭对象
iStm.Close
Kill App.Path & "\4.jpg"
End If
End Sub

红色部分是我在原来代码基础上，来处理数据库中的“photo”为空的代码，可是怎么不起作用。请问，当读取空“photo”时如何处理？

Private Sub readfile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yuangong.mdb" '得到最新添加的纪录
Set iConc = New ADODB.Connection
iConc.Open iConcstr
Set iRe = New ADODB.Recordset '打开表
iRe.Open "select * from yuangong_info where 职工编号='" & Trim(Form1.Text1) & "'", iConc, adOpenKeyset, adLockReadOnly
If Not IsNull(iRe.Fields("职工编号").Value) Then
Set iStm = New ADODB.Stream '保存到文件
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
.SaveToFile App.Path & "\4.jpg" '这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
End With
Form1.Picture1.Picture = LoadPicture(App.Path & "\4.jpg")
iRe.Close '关闭对象
iStm.Close
Kill App.Path & "\4.jpg"
Else
MsgBox "该员工暂时无照片"
End If
End Sub
不好意思，我对ISNULL 不太熟悉，这么用肯定是不对，烦劳版主帮忙修改一下！

当我读取'photo'为空的数据库时，提示：实是错误，‘3001’，参数类型不正确，或与其他参数冲突。
.Write iRe("photo")

，见笑了，是我的大意，问题解决了，但是照片存放到数据库中又出现问题了：
Private Sub Command1_Click()
'保存文件到数据库中
Dim iStm As New ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As String

'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile (fname)
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from yuangong_info where 职工编号='" & Trim(Form1.Text1) & "'", iConc, 1, 3
.Update
.Fields("photo") = iStm.Read
.Update
End With
'完成后关闭对象
iRe.Close
iStm.Close
MsgBox "照片已经成功储存！", vbOKOnly + vbExclamation, "添加结果！"
End Sub
提示：实时错误‘3021’，BOF 或EOF中有一个是真，或者当前的记录已被删除，所需的操作需要一个当前记录。

问题解决了，不打扰了！谢谢purana！！！