ho un programma che mi da errore in un collegamento,dato che non conosco questo tipo di collegamento e non so dove mettere le mani potreste aiutarmi?

codice:
Sub Main()

    FORMATO = ".TIF"
    PathDefaultImg = "C:\pratiche"
    gsDatabase = PathDefaultImg & "\partenope.mdb"

End Sub

Sub passaggio click()
   Data1.DatabaseName = gsDatabase
   Data1.RecordSource = gsRecordsource
   Data1.Caption = gsRecordsource
   Data1.Refresh

   If gsRecordsource = "PASSAGGIO Then
   collegamento = Dir(PathDefaultImg & "\" & .txtFields(7).Text & 
               .txtFields(5).Text & .TabFoglio.SelectedItem.Index 
               & FORMATO, vbNormal)
   End If
End Sub
l'errore sta nel collegamento che mi rimane vuoto

help pleasee



********************
Nota del moderatore: Per chiudere il tag del codice devi usare lo slash / e non il backslash \