几个VB对数据库操作的初级菜鸟问题。

Question

几个VB的初级问题，我想对高手来说我的问题一定很菜，别笑话我。我一般用ADOBC控件实现对SQL2000数据库的数据进行连接，并且用TEXT控件设定其数据源为ADOBC，并与ADOBC取回的字段锁定以实现数据的改写。我想问，如果没有任何其它控件与ADOBC取回的字段锁定，能不能用程序实现对ADOBC连接的SQL2000的数据库中的一个表中的一个字段的数据进行改写？
希望给出代码。假设情况如下：ADOBC控件ADOBC1已正确设定数据连接，并正确设定数据源字段。其中SQL2000里连接的库为AK，表为AB，字段为AD(类型为8位字串）。(ADOBC1的 ConnectionString 属性为“Provider=SQLOLEDB.1;Password=wstaakgd;Persist Security Info=True;User ID=sa;Initial Catalog=AK;Data Source=.”)
(ADOBC1的 RecordSource 属性为 “SELECT AD FROM AB”） 请前辈给出一段代码不依靠其它控件在表AB中新增一条记录，并把AD字段值设为“OK1”，并将数据上传到数据库中，然后再改写AD字段，将其值设为“OK2”，并将数据上传到数据库中。谢谢各位前辈对我的耐心指教。
原则上不拆分，因为我很菜，分数将送给最先给出正确答复前辈（如果不是很容易懂，希望有简要的说明）。

Answer 1

dim conn as adodb.connection
conn.connectionstring=ADODC1.connectionstring
conn.open
for i=1 to 100
strSQL="insert into AB (AD) values(OK" & i & ")"
conn.execute(strSQL)
next i
conn.close
set conn=nothing

Answer 2

无效，第二行出错。
我把它改成：
conn.connectionstring="Provider=SQLOLEDB.1;Password=wstaakgd;Persist Security Info=True;User ID=sa;Initial Catalog=AK;Data Source=."
还出错。

Answer 3

conn.connectionstring=ADODC1.connectionstring 
这一行无论怎么改，比如
conn.connectionstring= " "
一样的报“对象变量，或with块变量未设置”。
ADODC1的数据源一定是正确设定了。因为我能对ADODC1进行正常的数据操作。

Answer 4

谢谢youxia001(游侠001) 的热心帮助，在您的帮助下，我另查了些资料，正确代码应如下：Dim conn As New ADODB.Connection
Dim Cnn_str As StringCnn_str = Adodc1.ConnectionString
conn.Open Cnn_strFor i = 1 To 10
strSQL = "insert into CZYK (CZYBHao) values( 'OK" & i & "')"
conn.Execute (strSQL)
Next iconn.Close
Set conn = Nothing不过因为您的代码有几处关键错误，我想不应给你全部的分，呵，我把分也散给帮我顶的朋友一些吧。

Answer 5

注：strSQL = "insert into CZYK (CZYBHao) values( 'OK" & i & "')"
一句中我根据我的实际改了表明和字段。

Answer 6

strconnectionstring="Provider=SQLOLEDB;Pwd=wstaakgd;UID=sa;server=数据库服务器的机器名;database=你要连接的数据库名"