Private Sub Form_Load()

Dim iItem As Integer
Dim iCtr As Integer

With AutoCompleteCombo1
    .Clear
    

    For iItem = 65 To 90
       .AddItem Chr(iItem) & "TEST"
       .ItemData(iCtr) = iItem
       iCtr = iCtr + 1
    Next
        .ListIndex = 0
        
End With
End Sub