Errore VB+access CurrentDb()

[ramboelmeio]

Ciao a tutti!In azienda stiamo utilizzando un applicativo (vecchiotto ma funzionale) access97+Vb+collegamenti a alcune tabelle SQLServer. Il file è sul server e tutte le postazioni, con un semplice collegamento possono utilizzarlo senza problemi. Da qualche giorno lanciando il programma su due macchine il programma non parte e access mi da l'errore che allego.
Mi viene segnalato un errore sulla riga in grassetto:

' Apre tabella Voci pannelli comandi e trova
    ' prima voce per questa pagina.
     [B]Set dbs = CurrentDb()[/B]     
    strSQL = "SELECT * FROM [Voci pannelli comandi]"
    strSQL = strSQL & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
    strSQL = strSQL & " ORDER BY [ItemNumber];"
    Set rst = dbs.OpenRecordset(strSQL) 

Non conosco VB e il programma non lo ho fatto io. Qualcuno sa darmi qualche dritta anche considerando che su un'altra macchina il programma funziona correttamente?