Проблемы с Check'ами - VB

Формулировка задачи:

Привет всем,
Такая проблема на форме пользователь с помошью check'ов и text заполняет форму, далее форма перекидывает в БД. Text'шки обновляетсю а check не в состоянии обновлятся........... Там еще при выборе одного другие в состоянии enable.
Испробовал все , а может почти все...
Вопрос как сделать чтоб эти check'и обнулялись????
Или есть еще какие нибудь идей......

Решение задачи: «Проблемы с Check'ами»

textual
                            Листинг программы 
                        

                            <font color="00AA00">'загрузка формы</font>
<font color="blue">Dim</font> cn <font color="blue">As</font> ADODB.Connection
<font color="blue">Dim</font> rs <font color="blue">As</font> ADODB.Recordset
    
    <font color="blue">Set</font> cn = <font color="blue">New</font> ADODB.Connection
    cn.<font color="blue">Open</font> <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=C:\1.mdb;Persist Security Info=True"</font>
    
    <font color="blue">Set</font> rs = <font color="blue">New</font> ADODB.Recordset
    rs.CursorLocation = adUseClient
    <font color="blue">Set</font> rs.ActiveConnection = cn
    rs.<font color="blue">Open</font> <font color="teal">"SELECT * FROM Table1"</font>, , adOpenKeyset, adLockOptimistic, adCmdText
    
    <font color="00AA00">'и так для каждого контрола нужно сделать привязку</font>
    ...
    <font color="blue">Me</font>.Check1.DataField = <font color="teal">"Check1"</font> <font color="00AA00">'имя поля в таблице где хранится данное значение</font>
    <font color="blue">Set</font> <font color="blue">Me</font>.Check1.DataSource = rs
    ...
    

<font color="00AA00">'обработка нового</font>

    rs.AddNew
    <font color="00AA00">'вводите новые значения в поля</font>
    ....
    rs.Update
    
<font color="00AA00">'выбор нужной записи</font>

    rs.Move <font color="darkblue"><b>1</b></font>
    
'и тд и тп
                        