Selezionare primo elemento di un ComboBox associato ai dati

[oregon]

Potresti provare con

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