%ComboBox nuovo problema

Ciao,
ho ancora un problema con la gestione delle combobox.
By Sal, aveva risolto il problema di 5 combobox in cascata e sin qui tutto ok, ma ho avuto la malaugurata idea di aggiungere alla tabella la colonna ID per rendere univoci i dati (ID mi serve per la gestione di un'altra Userform) mentre nella Userform1 le 5 combobox devono poter selezionare e visualizzare i dati delle colonne B-C-D-E e escludendo quelli della colonna A.
Nella Userform1 ho modificato il codice nelle Sub: (vedi allegato)
Private Sub cmdNuovo_Click()
Private Sub ComboBox1_Change()
Private Sub ComboBox2_Change()
Private Sub ComboBox3_Change()
Private Sub ComboBox4_Change()

e nel Modulo7 ho modificato il codicedel la Sub: (vedi allegato)
Sub rFi5(fg, ……….

Sembra che tutto funzioni, se non che ogni tanto mi visualizza al posto del valore del record il titolo di colonna.
Per cui penso che la modifica che ho fatto non vada bene, ma non riesco a venirne a capo.
Allego file
Grazie dell’aiuto
GioCas

ciao
ti riporta le intestazioni se inserisci nell'ID un numero non esistente nella combo (es: 3)

Per evitare ciò, nelle proprietà della comboBox 6 (quella dell'ID), setta il parametro:
MatchRequired = True (e non false)

Piccolo suggerimento: perchè non rinomini in chiaro tutte le TaxtBox - ComboBox etc etc
so che è un lavoretto, noioso ma un domani ne ricaverai benefici al posto di correre appresso a cosa rappresenta la TextBox6, pittosto che la 9 etc etc.

saluti

Grazie dodo47, ho provato e non mi da più i titoli, se id non esiste, mi da il messaggio "Valore della proprietà non valido" inserendone uno esistente tutto ok. Però se voglio chiudere la scheda e la combobox6 è vuota non me la fa chiudere e mi da il messaggio "Valore della proprietà non valido" se inserisco un valore esistente me la fa chiudere.
Invece per le combobox da1 a 5, appena By Sal legge il post, sicuramente ci aiuterà a capire.
Grazie
GioCas

ciao
per quanto riguarda quella segnalazione di errore, basta che nel modulo della userForm tu inserisca la seguente sub:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Me.ComboBox6 = vbNull
End Sub

Per il resto di sicuro Sal TI aiuterà a capire.

Grazie dodo47.
Ho ancora molto da imparare
GioCas