Hjælp med listebox udprintning!!!!

Jeg har en database hvori der ligger en sti til et billed eller en tegning, og tegningensnavn og hvilken type det er (SolidWorks eller GIF)

Jeg har så en listebox, hvor der måske står 3-5 forskellige "Tegninger" både i GIF eller i solidWorks eller begge blandet sammen!

NÅR jeg så klikker på Print vil jeg gerne have at den går ind og kigger i min database og ser efter om det er et GIFbilled eller en SolidWorkstegning! Derefter skal den bruge 2 forskelllige udprintningsmetoder!
Jeg har selv fået den til at virke individuelt med unprintning af en enkelt fil, eller udprintning af flere filer i SolidWorks, men når jeg prøver at smække en GIF fil ind går det galt.. den kan ikke finde den! Her er min kode:
-----------------------------------------------------------
Private Sub cmdPrint_Click()
Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\CRM\data\data\Data.mdb")
    strSQL = "SELECT * FROM ProductionsPapir WHERE Parttegninger Like '*" & lstPartlist.ListIndex & "*'"
    Set recPartprint = datDB.OpenRecordset(strSQL)

If lstPartlist.ListCount = 0 Then
    MsgBox "Du skal vælge en tegning først"
    Else
    End If
 
recPartprint.MoveFirst
    Do Until recPartprint.EOF
   
    If recPartprint("Parttype") = "SolidWorks" Then
        Dim Part
        Set Part = GetObject(recPartprint("Partsti") & "\" & recPartprint("Parttegninger") & (".SLDDRW"))
        Part.ForceRebuild3 True
        Part.Graphicsredraw
        Part.Visible = True
        Part.PrintOut 1, 1, 1, False, "", 0#, False
        Part.Visible = False
        Set Part = Nothing
    Else
    If recPartprint("Parttype") = "GIF" Then
        Dim strFil As String
        Dim pic As Picture
       
        strFil = (recPart("Partsti") & "\" & recPart("Parttegninger") & (".GIF"))
       
        Set pic = LoadPicture(strFil)
       
        Printer.Orientation = vbPRORPortrait
        If Image.Height > Printer.Height Or Image.Width > Printer.Width Then
            Printer.PaintPicture pic, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight
        Else
            Printer.PaintPicture pic, 0, 0
        End If
            Printer.EndDoc
    Else
    End If
    End If
        recPartprint.MoveNext
Loop

End Sub
-----------------------------------------------------------

Nogen der vil hjælpe mig??