il primo controllo che fai non mi sembra molto sensato... prova a toglierlo.... inoltre è meglio immettere i dati non dalla text (che immagino tu abbia collegato alla tabella) ma direttamente dalla tabella:

Combo3.AddItem (data2.recordset("nome del campo"))