如何用VB更新SQL中一列的数据？

如数据库的名称是aa  表名是bb  列名是cc  现在cc列中有有的行是 0 ，有的是1 ，我想把所有的cc列的数据都改成 1 ，要用VB编写一个EXE程序来实现，就是不知道代码是怎样的，如下是SQL里的语句，就不知道VB里用什么样的代码来实现与SQL共同来执行，请大家帮忙，谢谢！


    use aa
    go
    UPDATE bb SET Type_no='dd' WHERE cc='1'
--------------------编程问答-------------------- 这是基本的数据工程.
创建数据库连接对象,设名为 conn
conn.exec "update bb set...."
就行了.
--------------------编程问答-------------------- 代码能否给全一点呀，小弟很菜的，现在刚好遇到需要用这个，请大家帮忙，谢谢！ --------------------编程问答--------------------

Sub acess连接方法()

'需引用 microsoft activex date objects 2.8

    Dim conn As ADODB.Connection



    Set conn = New ADODB.Connection

    conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=aa.mdb"

    If conn.State = adStateOpen Then

        conn.exec "UPDATE bb SET cc=1"

        conn.Close

    End If

    Set conn = Nothing

End Sub

补充：VB ,  数据库(包含打印，安装，报表)