Ciao daniele posto qui magari può essere utile a qualcuno

codice:
Dim con1 As ADODB.Connection
Dim record As ADODB.Recordset


Private Sub Form_Load()
    Set con1 = New ADODB.Connection
    con1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\cronologia.mdb"
    Set record = New ADODB.Recordset
    query = "SELECT * from tabella"
    
    
    Dim conn As New MyVbQL.MYSQL_CONNECTION
    Set conn = New MyVbQL.MYSQL_CONNECTION
    
    Dim RS As MyVbQL.MYSQL_RS
    
    Dim ris As MyVbQL.MYSQL_CONNECTION_STATE
    
    
    
    ris = conn.OpenConnection("localhost", "ciromarotta", "ciromarotta", "cronologia")
    If ris = MY_CONN_CLOSED Then
        MsgBox "Errore durante la connessione!" & conn.Error
    End If
    
    '------------

    record.Open query, con1
     Do Until record.EOF
     a1 = record.Fields(0).Value
     a2 = record.Fields(1).Value
     a3 = record.Fields(2).Value
     a4 = record.Fields(3).Value
     a1 = Replace(a1, "'", "''")
     a2 = Replace(a2, "'", "''")
     a3 = Replace(a3, "'", "''")
     a4 = Replace(a4, "'", "''")
     query2 = "INSERT INTO completa (Lista,Titolo,Numero,Anno) VALUES('"  & a1 & "','" & a2 & "','" & a3 & "','"& a4 &"' "
     conn.Execute (query2)    
    record.MoveNext
    Loop
    Set RS = Nothing
    Set conn = Nothing
    conn.CloseConnection
End Sub
Il seguente codice dovrebbe prendere i dati dal database cronologia.mdb e portarli nel database cronologia tabella completa di tipo my sql.

Il mio problema è che la riga in nero non viene eseguita.Per essere + precisi viene eseguita ma non accade niente.

Avevo pensato che poteva dipendere dal modo diverso di interpretare le date (access usa la forma gg/mm/aaaa invece sql il contrario)

ma non credo dipenda da questo.Da cosa può dipendere?