Lo popolo in questo modo

codice:
Dim AdoTypeP As recordset
Dim Conn1 As ADODB.Connection


Private Sub CMB_Load()
    Call SetRowSource(DtcP, "select VAL,DESCR from TAB1 WHERE ID='E' order by VAL", Conn1, AdoTypeP)
End Sub

Private Sub Form_Load()
    CMB_Load
End Sub