adodb程序运行出错，求~~~~~~~~~~~

Question

Private Sub Form_Load()
    Dim strsql As String
    Set cnn = New ADODB.Connection
    Set rc = New ADODB.Recordset
    
    strsql = "select 第一表.编号,第一表.姓名,第一表.生日,第一表.性别,第一表.地址,第二表.学院,第二表.班别,第二表.宿舍,第三表.计机维护,第三表.vb,第三表.java,第三表.photoshop,第三表.flash from 第一表,第二表,第三表 where 第一表.编号=第二表.编号 and 第一表.编号=第三表.编号"
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\vb\database.mdb;Persist Security Info=False"
    cnn.Open
    rc.CursorLocation = adUseClient
    rc.Open strsql, cnn, adOpenStatic, adLockOptimistic
end sub
Private Sub Command1_Click()                   '按下去就会出错
    rc.Fields("编号").Value = Text1.Text
    rc.Fields("姓名").Value = Text2.Text
    rc.Fields("生日").Value = Text3.Text
    rc.Fields("性别").Value = Text4.Text
    rc.Fields("地址").Value = Text5.Text
    rc.Fields("学院").Value = Text6.Text
    rc.Fields("班别").Value = Text7.Text
    rc.Fields("宿舍").Value = Text8.Text
    rc.Fields("计机维护").Value = Text9.Text
    rc.Fields("vb").Value = Text10.Text
    rc.Fields("java").Value = Text11.Text
    rc.Fields("photoshop").Value = Text12.Text
    rc.Fields("flash").Value = Text13.Text
    rc.Update
    
End Sub在那里按下去就会出错，是不是前面的设置有问题，如果设置才对（请详细说明白）谢谢

Answer 1

Private Sub Command1_Click()                   '按下去就会出错
    rc.Fields("编号").Value = Text1.Text
    rc.Fields("姓名").Value = Text2.Text
    rc.Fields("生日").Value = Text3.Text
    rc.Fields("性别").Value = Text4.Text
    rc.Fields("地址").Value = Text5.Text
    rc.Fields("学院").Value = Text6.Text
    rc.Fields("班别").Value = Text7.Text
    rc.Fields("宿舍").Value = Text8.Text
    rc.Fields("计机维护").Value = Text9.Text
    rc.Fields("vb").Value = Text10.Text
    rc.Fields("java").Value = Text11.Text
    rc.Fields("photoshop").Value = Text12.Text
    rc.Fields("flash").Value = Text13.Text
    rc.Update
    
End Sub
在Private Sub Command1_Click()                   '按下去就会出错
下面写
rc.addnew

Answer 2

Private Sub Command1_Click()                   '按下去就会出错
    rc.AddNew
    rc.Fields("编号").Value = Text1.Text
    rc.Fields("姓名").Value = Text2.Text
    rc.Fields("生日").Value = Text3.Text
    rc.Fields("性别").Value = Text4.Text
    rc.Fields("地址").Value = Text5.Text
    rc.Fields("学院").Value = Text6.Text
    rc.Fields("班别").Value = Text7.Text
    rc.Fields("宿舍").Value = Text8.Text
    rc.Fields("计机维护").Value = Text9.Text
    rc.Fields("vb").Value = Text10.Text
    rc.Fields("java").Value = Text11.Text
    rc.Fields("photoshop").Value = Text12.Text
    rc.Fields("flash").Value = Text13.Text
    rc.Update
    
End Sub