On Error Resume Next
ComDialog1.CancelError = True
ComDialog1.DialogTitle = "插入文件"
ComDialog1.Filter = "所有类型文件(*.*)|*.*|"
ComDialog1.flags = 1
ComDialog1.ShowOpen
If Err <> mscomdlg.cdlCancel Then
RTBox1.OLEObjects.Add , , ComDialog1.Filename
If Err <> 0 Then MsgBox Error
End If