CommonDialog1.Filter = "文件bmp|*.bmp|文件JPG|*.JPG|文件GIF|*.GIF"
CommonDialog1.ShowOpen
Dim a As String
a = CommonDialog1.FileTitle 得到不含路径文件名
If a <> "" Then
Image11.Picture = LoadPicture(App.Path & "\bmp\" & a)
\bmp\是我用于存取图片的本系统文件夹下的一个子文件夹。
Data1.Recordset.Edit
Data1.Recordset.Fields("tp") = a TP是存取图片名称的字段。
Data1.Recordset.Update
End If
End Sub