list+复选框如何操作

list+复选框怎么操作啊
ado+access
表1里有<=20个数据：
第一天
第二天
第三天
。。。
第二十天

把他读取到list1里

list1里style=1，就是每个选项前面多了个复选框
然后放一个text1
（问题1）比如输入第二天，那么第二天前面的复选框就选中
如果输入的东西LIST1里找不到就MSGBOX"找不到"
然后放一个按钮
（提问2）list1里的全部复选框复选框是否全部选中了，全部选中则msgbox“全部OK"
else
msgbox“还有‘哪一天'没有选中"

（提问3）list1里的复选框不可以让鼠标点击选中，只能让代码来选中，就是TEXT里输入的东西找的到才选中状态

3个问题。希望大家多多帮忙
THANKS




[解决办法]

Private Sub Command1_Click()
    Dim i As Long
    
    For i = 0 To List1.ListCount - 1
        If List1.List(i) = Text1 Then
            List1.Selected(i) = True
            Exit Sub
        End If
    Next
    
    MsgBox "找不到"
End Sub

Private Sub Command2_Click()

    Dim i As Long
    
    For i = 0 To List1.ListCount - 1
        If Not List1.Selected(i) Then
            MsgBox "还有'" & List1.List(i) & "'没有选中"
            Exit Sub
        End If
    Next

    MsgBox "全部OK"
End Sub