我的语句只能重复显示第一张图片
Dim rs As New ADODB.Recordset, strSQL As String, i As Integer
strSQL = "Select 调查与区划报告图件 From 表1_云南省地质灾害普查图件 "
rs.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic
Me.Image13.PictureData = rs!调查与区划报告图件.GetChunk(rs!调查与区划报告图件.ActualSize)