Ciao a tutti,

ho compilato la seguente applicazione che se la eseguo sulla stessa macchima su cui l'ho creata allora funziona ma su altre macchine mi da l'errore

Run-time error '713':

Application-defined or object-defined error


potete aiutarmi?

codice:
Dim IE As SHDocVw.InternetExplorer
Dim Cmd1 As New Command

Sub Main()
 p = App.Path
 
Cmd1.ActiveConnection = Database.Connection1.ConnectionString

Data = Format(Date, "dd/mm/yyyy")
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.Navigate p & "\form_wo.html"

                Do While IE.Busy
                    Loop
                Call attendi

IE.Document.Forms(Form1).username.Value = "WOREPORT"
IE.Document.Forms(Form1).userpwd.Value = "tccres2004"
IE.Document.Forms(Form1).submit

IE.Navigate p & "\form_wo.html"
                
                
                Do While IE.Busy
                    Loop
                Call attendi
                
                
IE.Document.Forms(1).giorno.Value = Data
IE.Document.Forms(1).submit


                Do While IE.Busy
                    Loop
                Call attendi
                
                
a = ""
i = 0
Do While a <> "Numero Cl. "
a = IE.Document.All.Item(i).outertext
i = i + 1
Loop
i = i + 22
Do While temp <> "Tempo di esecuzione"
telefono = IE.Document.All.Item(i).outertext
prodotto = IE.Document.All.Item(i + 1).outertext
modulo = IE.Document.All.Item(i + 3).outertext
modulo = Mid(modulo, 7, 2)
Query = "insert into wo (telefono, prodotto, modulo, dataora) values ('" & telefono & "','" & prodotto & "','" & modulo & "',' " & Data & "')"
Cmd1.CommandText = Query
Cmd1.Execute
temp = IE.Document.All.Item(i - 1).outertext
temp = Mid(temp, 1, 19)
i = i + 11
Loop
Cmd1.ActiveConnection.Close
IE.Quit
Close
 End Sub

Sub attendi()
   'Exit Sub
    PauseTime = 3                       ' Imposta la durata (secondi).
    Start = Timer                       ' Imposta l'ora di inizio.
    Do While Timer < Start + PauseTime
        DoEvents                        ' Passa il controllo ad altri processi.
    Loop
    Finish = Timer                      ' Imposta l'ora di fine della pausa.
    TotalTime = Finish - Start          ' Calcola il tempo totale.
End Sub