Originariamente inviato da optime
ripeto. posta il codice. tutto.
OK

codice:
   Set cn = CreateObject("ADODB.Connection")
   cn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=db_mysql;USER=root;PASSWORD=123456;OPTION=3;"   

   Set conn = CreateObject("ADODB.Connection")
   OpenStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Inetpub\wwwroot\mdb-database\Mdb\Logon.mdb;Persist Security Info=False"
   conn.Open openStr

   SQL = " SELECT * FROM tbl_access "   
   Set objRs = CreateObject("ADODB.Recordset")
   objRs.Open SQL, conn, 3, 3
   
   if not objRs.eof then 
   
   objRS.movefirst()    
   do while not objRS.eof
       
   query_select = "SELECT * FROM "
   query_select = query_select & " tbl_A "
   query_select = query_select & " WHERE "
   query_select = query_select & " Matr = '" & objRs("Matr") & "' "
   query_select = query_select & " AND "
   query_select = query_select & " NOME = '" & pulisci(objRs("NOME")) & "' " 
   query_select = query_select & " AND "
   query_select = query_select & " aut = '" & objRs("aut") & "' " 
   
 
   set RS = CreateObject("ADODB.Recordset")
   Rs.Open query_select, cn
   
   if Rs.eof And Rs.bof then
   
   strSQL = " INSERT INTO "
   strSQL = strSQL & " tbl_b "
   strSQL = strSQL & " ( "
   strSQL = strSQL & "   Matr, "
   strSQL = strSQL & "   Nome, "
   strSQL = strSQL & "   Aut " 
   strSQL = strSQL & " ) "
   strSQL = strSQL & "   VALUES "
   strSQL = strSQL & " ( "
   strSQL = strSQL & "  '" & objRs("Matr") & "', "
   strSQL = strSQL & "  '" & objRs("Nome") & "', " 
   strSQL = strSQL & "  '" & objRs("aut") & "' "  
   strSQL = strSQL & " ) "
   cn.execute (strSQL)   
  
   Rs.Close()
   Set Rs = Nothing    
   
   end if
   
   objRS.movenext()
   Loop

   end if

   objRs.Close()
   Set objRs = Nothing   

   conn.Close()
   Set conn = Nothing

   cn.Close()
   Set cn = Nothing