grazie ragazzi , forse oregon nn ha tutti i torti quando vuole + info , allora il db è in access(2000), il problema non si presenta quando compatto il db xchè il software continua a lavorare bene, ma quando avviene il backup a fine mese allora non fa altro ke :
1) kiudere le connessioni al db
2) copiare il db in un cartella backup
3) azzerare il db corrente
4) aprire le connessioni db

ho notato ke si blocca in questa parte di sorgente, senza pero' restituirmi un errore in modo da poterlo intercettare in fase di debug. (blocco programma, uso cpu 100%)
ke ne dite ?
codice:
' apertura RS
If Rs_tmp.State = 1 Then Rs_tmp.Close
Rs_tmp.Open "select * from sessionlistout"
With Rs
    .MoveFirst
        Do Until .EOF
        tmppass = .Fields!UserName
        ' apertura file sht/html
        Open App.Path & "\radius.html" For Input As numfile
            Do While Not EOF(numfile)
                Input #numfile, riga
                pos = InStr(1, riga, tmppass)
                    If pos <> 0 Then
                        temppass = Mid(riga, pos, 10)
                        temppass = Trim(temppass)
                        tempip = Mid(riga, pos + 55, 15)
                        tempip_pos = InStr(1, tempip, "<") - 1 ' modifica ke permette il check di ip completi (15char)
                        tempip = Mid(tempip, 1, tempip_pos)
                        List1.AddItem ("ip:" & temppass) & (" ipout:" & tempip)
                            If .Fields!UserName = temppass Then
                                .Fields!ip = tempip
                                .Update
                               '.MoveNext
                            End If
                    End If
            Loop
        Close numfile
    .MoveNext
        Loop
End With
grazie