No non mi riferisco al Data1
In pratica con quel codice fai a meno del data1.

Fai attenzione ho commesso un errore quì
If combo1.Text = myrecordc!tuocampo Then
If combo1.Text = myrecord!tuocampo Then
Quello rosso è sbagliato c'è una "c" di troppo