Гибкости мозгов что-ли нехватат?
Начинаю рассказ.
использую следующую конструкцию:
Dim rstType As ADODB.Recordset
Dim strSqlType As String
Dim i As Long
***
'для каждого добавленной записи добавляю уникальное значение
'ItemData равной ID в таблице, которую содержит rstType
i = 0
With rstType
.MoveFirst
Do While Not .EOF
cboType.AddItem !t1
cboType.ItemData(i) = !id_t
.MoveNext
i = i + 1
Loop
End With
'а вытаскиваю нужный ID выбранной записи так:MsgBox cboType.ItemData(cboType.ListIndex)
Вопрос: Как узнать значение св-ва ListIndex по ItemData, фактически по ID порядковый номер записи в комбобоксе, составленном вышеприведённой конструкцией?

Спасибо! Беспокойная ночь тоже дала мне это решение, больше ничего придумать не смог.

(Для тех кому интересен ответ)Сделал так:

Dim m_MyIndex As Long

Private Sub Form_Load()
Init
FindMyIndex
cbo1.ListIndex = m_MyIndex
End Sub

Private Sub Init()
Dim strSql As String
Dim rstType As ADODB.Recordset
Dim i As Long

OpenConnection
strSql = "SELECT * FROM type"
Set rstType = GetRecordset(strSql)
With rstType
i = 0
.MoveFirst
Do Until .EOF
cbo1.AddItem !t1
cbo1.ItemData(i) = !id_t
i = i + 1
.MoveNext
Loop
End With
rstType.Close
CloseConnection
End Sub

Private Sub FindMyIndex()
Dim i As Long
Dim ID As Long

ID = 7 ' то идентификатор, по которому нужно найти запись.
'Его каждый берёт откуда ему нужно.
With cbo1
For i = 0 To .ListCount - 1
If .ItemData(i) = ID Then
m_MyIndex = i
Exit Sub
Else
End If
Next i
End With
m_MyIndex = -1
MsgBox "Запись не найдена"
End Sub
Процедура Init заполняет комбик, FindMyIndex - находит ListIndex, который соответствует ID.