50分的简单问题：在VB6中写一条记录到SQL Server 2000

Question

Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"

Answer 1

to pengdali:你的方法好复杂哟，多谢:)使用BillMaster.Open "SELECT * FROM FcBillMaster", Cn1, adOpenDynamic, adLockOptimistic可以了
尤其要多谢 yelook仍有一问题：
.Update之后，Fields（0）的值是420
（使用SQL Server 2000企业管理器查看。该字段是一自动标识字段）
但其后的语句XZID = .Fields(0)，得到的却是0。这又是怎么回事？分不够可以再加。    

Answer 2

将XZID = .Fields(0)放在update之前试试