VB修改ORACLE数据库的数据

VB6.5连接oracle，想实现的效果是：在控件text1里面填入信息，就可以修改到数据库里面的数据

执行这一条sql语句：update yong_a set b=1 where a = （控件test1填进去的数字）
数据库是：diy   账号：system  密码：1；
      

Set cnBj = New Connection
cnBj.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=1;User ID=system  ;Data Source=diy;Persist Security Info=True"
cnBj.Open
cnBj.excute "update yong_a set b=1 where a = （控件test1填进去的数字）"