non trova il collegamento

[BOYROMA1]

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?

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 \

[ladyBlu]

la funzione Dir verifica che il percorso esista;
evidentemente la cartella che cerchi non esiste e per questo la Dir restituisce ""

[BOYROMA1]

la cartella col database ce'non trova le tabelle

[ladyBlu]

cosa c'è scritto in queste variabili che usi nella Dir?
.txtFields(7).Text
.txtFields(5).Text
.TabFoglio.SelectedItem.Index
? :master:

[BOYROMA1]

.txtFields(7).Text & .txtFields(5).Text & .TabFoglio.SelectedItem.Index & FORMATO, vbNormal)

[ladyBlu]

la Sub Main è scritta in un modulo?

[BOYROMA1]

Global gsRecordsource As String

'directory dove si trova il file
Global PathDefaultImg As String

'formato bmp
Global FORMATO As String

'nomde del file bmp
Global collegamento As String
'per sapere quando salvare le nuove impostazioni

[ladyBlu]

vabbè Global e Public sono la stessa cosa anche se Global è in disuso ormai.
Senti, quando mandi in esecuzione il programma ci passa nella Sub Main?

[BOYROMA1]

si

[ladyBlu]

non so se hai sbagliato a scrivere il codice qui... cmq ti manca un apice chiuso nell'if:

If gsRecordsource = "PASSAGGIO" Then