sembra tutto ok
se vuoi prova cosi

OleDbConnection1.Open()

Dim Cmd As OleDbCommand = OleDbConnection1.CreateCommand()

Cmd.CommandText = "INSERT INTO tclienti (Denominazione, Indirizzo, Citta, Cap, numerotelefono, email) values ('" & TextBoxNome.Text & "','" & TextBoxIndirizzo.Text & "','" & TextBoxCitta.Text & "','" & TextBoxCap.Text & "','" & TextBoxTelefono.Text & "','" & TextBoxEmail.Text & "')"
Try
Cmd.ExecuteNonQuery()
Successo.Text = "Inserimento Sede effettuato correttamente"
Catch err As Exception
Successo.Text = "Errore: Sede non Inserita"
End Try
OleDbConnection1.Close()

ciao