ขอ code show รูปจาก datagrid ฐานข้อมูลเป็น access ด้วย vb6.0 หน่อยคับ

     Dim Path1 As String
     Path1 = App.Path & IIf(Right(Trim(App.Path), 1) = "\", "", "\")
     Path1 = Path1 & "Pict\"
     With frmCriminal_find
             If (Not rstCriminal_Find.BOF) And (Not rstCriminal_Find.EOF) Then
                                    For i = 1 To 4
                                         .imgPic(i).Picture = LoadPicture("")
                                         Pict1 = rstCriminal_Find.Fields("Pict" & Trim(Str(i))).Value & ""
                                         If Trim(Pict1) <> "" Then
                                               File1 = Path1 & Pict1
                                               If Trim(LCase(Dir(File1))) = Trim(LCase(Pict1)) Then
                                                           .imgPic(i).Picture = LoadPicture(File1)
                                               End If
                                         End If
                                    Next
            Else
                                       
                 For i = 1 To 4
                       .imgPic(i).Picture = LoadPicture("")
                 Next i
             End If
     End With