Здравствуйте все!!!

Помогите пожалуйста переделать процедуру автоподстановки в Combo.
Есть процедура на ComboBox, а надо DataCombo

процедура:
Private Sub ComboAutoComplete(cmb As ComboBox)
Dim txt As String, pos As Long, txtlen As Long
Dim matchcount As Long, complword As String
Dim maxi As Long, i As Long, cmbindex As Long

txt = cmb.Text
txtlen = Len(txt)
pos = cmb.SelStart
maxi = cmb.ListCount - 1
For i = 0 To maxi
If StrComp(txt, Left$(cmb.List(i), txtlen), vbTextCompare) = 0 Then
matchcount = matchcount + 1
If matchcount = 1 Then
complword = cmb.List(i)
cmbindex = i
End If
End If
Next
If matchcount >= 1 Then
cmb.ListIndex = cmbindex
cmb.SelStart = pos
cmb.SelLength = Len(complword) - pos
End If
End Sub