HO PRESO LA TUA CONNECTIONSTRING
MODIFICANDOLA UN PO... MA A SEMPRE FUNZIONATO

codice:

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connettiDB(percorso As String)
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source = " & percorso

                          'nella prima riga si specifica il provider
                          'nella seconda il percorso al db
      .ConnectionTimeout = 5 'numero dei secondi di timeout
      .CursorLocation = adUseClient 'tipo di cursore
      .Mode = adModeShareDenyNone 'nessuna limitazione
      .Open 'apertura ricordarsi di chiuderla
   End With
   With Rs
      .ActiveConnection = Cn ' imposta a che connessione si riferisce
      .LockType = adLockOptimistic ' imposta il tipo di lock
   End With
End Sub
HO PROVATO FACENDO CN.EXECUTE SQL (e togliando anche quel ; ma niente)
sempre lo stesso errore