DATAREPORT打印图片

    各位大哥.我用DATAREPORT来做报表,用里面的PRTIMAGE想到办法来打印图了,可是两张不同资料的单有两张不同的图,可是我写的那个只能打出两张不同资料的单,但是不能打出两张不同的图,如果是一张张来打就可以打得到,可以如果两张一齐打印就只会出同一个图.有什么办法可以做到打出两张不同的图呢. Private Sub Command4_Click()     Call MSFlexGrid1_LeaveCell 
    Call MSFlexGrid1_EnterCell 
     
    Dim iRow As Integer 
    Dim sql As String 
    Dim cn As ADODB.Connection 
    Dim rs As ADODB.Recordset 
    Set cn = New ADODB.Connection 
    sql = "" 
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\jxh\data\ck.mdb" 
    Set rs = New ADODB.Recordset 
    For iRow = 1 To MSFlexGrid1.Rows - 1 
        If MSFlexGrid1.TextMatrix(iRow, 0)  <>  "" And MSFlexGrid1.TextMatrix(iRow, 8) = "√" Then 
            sql = sql & "'" & MSFlexGrid1.TextMatrix(iRow, 0) & "'," 
        End If 
    Next 
    If sql  <>  "" Then 
        sql = Left(sql, Len(sql) - 1) 
    Else 
        MsgBox "请选择要打印的单" 
        Exit Sub 
    End If 
     sql = "select * from kdzl as fp where 款式单号 in(" & sql & ")" 
      rs.Open sql, cn, 2, 1 
     
    Set DataReport2.DataSource = rs 
    DataReport2.DataMember = rs.DataMember 
    If rs("图片名")  <>  "" Then 
        Set DataReport2.Sections("Section1").Controls("Image1").Picture = LoadPicture(rs("图片名")) 
    End If 
    DataReport2.Sections("Section1").Controls("txt款式单号").DataField = "款式单号" 
    DataReport2.Sections("Section1").Controls("txt成色").DataField = "成色" 
    DataReport2.Sections("Section1").Controls("txt开单日期").DataField = "开单日期" 
    DataReport2.Sections("Section1").Controls("txt备注").DataField = "备注" 
    DataReport2.Sections("Section1").Controls("txt石资料").DataField = "石资料" 
    DataReport2.Sections("Section1").Controls("txt制品序号").DataField = "制品序号" 
    DataReport2.Sections("Section1").Controls("txt承造").DataField = "承造" 
    DataReport2.Sections("Section1").Controls("txt完成日期").DataField = "完成日期" 
    DataReport2.Sections("Section1").Controls("txt数量").DataField = "数量" 
    DataReport2.Sections("Section1").Controls("txt类型").DataField = "类型" 
    DataReport2.Sections("Section1").Controls("txt字印").DataField = "字印" 
    DataReport2.PrintReport True 
    
End Sub