ragazzi non capisco cosa c'è che non va in questa insert
i campi sono tutti di tipo text
i nomi sono corretti : già controllati

messaggio errore : errore di sintassi nell'istruzione INSERT INTO
se dopo faccio debug si seleziona l'istruzione CMD.Execute
questo è il codice:

Public Sub AGGIUNGI()
Dim SQLAGGIUNGI As String
Dim CONN As New ADODB.Connection
Dim CMD As New ADODB.Command

CONN.ConnectionString = Ado.ConnectionString
CONN.Open
SQLAGGIUNGI = "INSERT INTO TAB_RUB (NOME,COGNOME,EMAIL,TELEFONO,CELLULARE,NOTE) VALUES ('"
SQLAGGIUNGI = SQLAGGIUNGI & TXT_NOME.Text & "','"
SQLAGGIUNGI = SQLAGGIUNGI & TXT_COGNOME.Text & "','"
SQLAGGIUNGI = SQLAGGIUNGI & TXT_E_MAIL.Text & "','"
SQLAGGIUNGI = SQLAGGIUNGI & TXT_TELEFONO.Text & "','"
SQLAGGIUNGI = SQLAGGIUNGI & TXT_CELLULARE.Text & "','"
SQLAGGIUNGI = SQLAGGIUNGI & TXT_NOTE.Text & "')"
CMD.CommandText = SQLAGGIUNGI
CMD.ActiveConnection = CONN
CMD.Execute
Ado.Refresh
CONN.Close
End Sub

Grazie mille!!!