Program .exe wont run

the program above run on ide but not when it is exe, how i solve this?

the code:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim cnMySql As New rdoConnection
Dim rdoQry As New rdoQuery
Dim server, db, user, pwd As String
Dim insertQry As New rdoQuery
Dim rdoRS1 As rdoResultset
Open "C:\Users\Paolo\Desktop\attivita_1\mysql.ini" For Input As #1
Line Input #1, server
Line Input #1, db
Line Input #1, user
Line Input #1, pwd
Close #1

cnMySql.CursorDriver = rdUseOdbc
cnMySql.Connect = "Driver={MySQL ODBC 3.51 Driver};Server=" & server & ";Database=" & db & ";User=" & nome & "; Password=" & pass & ";Option=3;"
cnMySql.EstablishConnection
rdoQry.SQL = "SELECT SUM(quantita) AS q_art, codice_articolo FROM magazzino GROUP BY codice_articolo"
rdoQry.RowsetSize = 1


Set rdoQry.ActiveConnection = cnMySql
Set rdoRS = rdoQry.OpenResultset(rdOpenKeyset, rdConcurRowVer)

Do Until rdoRS.EOF
insertQry.SQL = "INSERT INTO magazzino_media (codice_articolo,quantita,data_giacenza) VALUES ('" & rdoRS!codice_articolo & "', '" & rdoRS!q_art & "','" & Date & "')"
Debug.Print insertQry.SQL
Set insertQry.ActiveConnection = cnMySql
Set rdoRS1 = insertQry.OpenResultset(rdOpenKeyset, rdConcurRowVer)
insertQry.Close
Set insertQry = Nothing
rdoRS.MoveNext
Loop
Form1.Show
Sleep 1000
' Unload Me
Form1.Hide
End Sub