Ciao io avrei fatto in una maniera più semplice prova questa
ricorda inoltre di settare la priprietà style su "2 - dropdownlist"

Private Sub Form_Load()
cn.Open strConn
strSQL = "SELECT DISTINCT Nome,IdNome FROM tabella1"
rs.Open strSQL, cn



Do Until rs.EOF
cmbbox.AddItem rs("Nome").Value & space(150) & rs("idNome").Value


rs.MoveNext
Loop

rs.Close

End Sub



Private Sub cmdCerca_Click()

strSQL = "SELECT DISTINCT File FROM tabella2 " & _
" WHERE IdNome='" & mid(cmbbox,150) & "'"

rs.Open strSQL, cn
Do Until rs.EOF
Text1.AddItem rs("File")
rs.MoveNext
Loop
rs.Close


End Sub

fammi sapere ciauuuuuu