vb与数据库连接 access 使得输入数据唯一

Question

也就是在vb的combobox输入数据 我要输入的是姓名 比如输入过李三 再次输入李三就会跳出对话框 之类的 应该如何用呢

Answer 1

Private Sub Form_Load()
    Combo1.AddItem "ok", 0
    Combo1.AddItem "no", 1
    Combo1.AddItem "yes", 2
End Sub
Private Sub Combo1_LostFocus()
    If isExist(Combo1.Text) = True Then
        MsgBox "有"
    Else
        MsgBox "没有"
    End If
End SubPrivate Function isExist(str1 As String) As Boolean
    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
        If str1 = Combo1.List(i) Then
            isExist = True
            Exit Function
        End If
    Next i
    isExist = False
End Function

Answer 2

现在的问题是 combobox原来也有数据 当我把combobox中数据选到combob0x.text的时候 就会出现重复了 我是选择也不是再次输入的数据  想达到即是选择又可以填写的combobox(无重复)