Private Sub Command1_Click()
Dim bk As Variant
For i = 0 To TDBCombo1.ListCount - 1
TDBCombo1.Row = i
MsgBox TDBCombo1.Columns(0).Text
If TDBCombo1.Columns(0).Text = "two" Then
TDBCombo1.Text = TDBCombo1.Columns(0).Text
Exit For
End If
Next
End Sub