[VB6] Errore: 'Nome origine Dati non trovato'

[LMondi]

Ciao basy82,
sembrerebbe che la connessione con il DB sia già avvenuta.
Prova a mettere un Exit Sub prima di Unload Me .
A ben vedere, sarebbe opportuno prima di chiudere il programma verificare che la connessione ad DB sia anch'essa chiusa (ed annullare eventiali rs).
Potresti inserire questa funzione per verificare ed eventualmente chiudere la connessione:

'Verifica lo stato della connessione:
Public Function GetState(intState As Integer) As String
    Select Case intState
        Case adStateClosed
            GetState = "adStateClosed"
        Case adStateOpen
            GetState = "adStateOpen"
    End Select 

La usi così:

'Verifica e Chiude/cancella il recordSet:
        If GetState(RSTpr7.State) = "adStateOpen" Then
            RSTpr7.Close
            Set RSTpr7 = Nothing
        End If
        'Verifica e Chiude/Cancella la connessione:
        If GetState(ConPr7.State) = "adStateOpen" Then
            ConPr7.Close
            Set ConPr7 = Nothing
        End If