主题：[求助]二进制

老师，下面代码怎样修改成打开图片，望老师指点。

If Tables("员工").Current Is Nothing Then

    Return

End If

Dim dr As DataRow = Tables("员工").Current.DataRow

Dim fl As String =  ProjectPath &  dr("_Identify") & ".doc"

If dr.SQLLoadFile("附件",fl) Then '如果提取文件成功

    Dim Proc As New Process '打开文件

    Proc.File = fl

    Proc.Start()

Else

    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If