代码运行不了，求改良

jiangdong110

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     Dim RS1 As Recordset
   
4.     Dim DB1 As Database
   
5.    
   
6.     Set DB1 = OpenDatabase(ThisWorkbook.Path & "" & "Info.MDB")
   
7.     Set RS1 = DB1.OpenRecordset(Name:="信息", Type:=dbOpenDynaset)
   
8.     With RS1
   
9.    
   
10.        .AddNew
    
11.         .Fields("工号").Value = Me.TextBox1.Value
    
12.         .Fields("部门").Value = Me.ComboBox1.Value
    
13.         .Fields("姓名").Value = Me.TextBox2.Value
    
14.         .Fields("性别").Value = Me.ComboBox2.Value
    
15.         .Fields("电话").Value = Me.TextBox3.Value
    
16. 
    
17.         .Update
    
18.         MsgBox "增加 [ 工号：" & TextBox1.Value & " 姓名：" & TextBox2.Value & " ] 的信息成功！目前共有记录" & RS1.RecordCount & "条", 1 + 16, "添加成功"
    
19.         
    
20.      
    
21.     End With
    
22.     DB1.Close
    
23.     Set RS1 = Nothing
    
24.     Set DB1 = Nothing
    
25. 
    
26. 
    
27. End Sub

复制代码

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     Dim RS1 As Recordset
   
4.     Dim DB1 As Database
   
5.    
   
6.     Set DB1 = OpenDatabase(ThisWorkbook.Path & "" & "Info.MDB")
   
7.     Set RS1 = DB1.OpenRecordset(Name:="信息", Type:=dbOpenDynaset)
   
8.     With RS1
   
9.    
   
10.         .AddNew
    
11.         .Fields("编号").Value = Me.TextBox1.Value
    
12.         .Fields("Account Code").Value = Me.TextBox2.Value
    
13.         .Fields("公司名称").Value = Me.TextBox3.Value
    
14.         .Fields("公司地址").Value = Me.TextBox4.Value
    
15.         .Fields("城市").Value = Me.ComboBox1.Value
    
16.         .Fields("邮编").Value = Me.TextBox5.Value
    
17.         .Fields("收件人").Value = Me.TextBox6.Value
    
18.         .Fields("联系电话").Value = Me.TextBox7.Value
    
19. 
    
20.         .Update
    
21.         MsgBox "增加 [ Account：" & TextBox2.Value & " " & TextBox3.Value & " ] 的信息成功！目前共有记录" & RS1.RecordCount & "条", 1 + 16, "添加成功"
    
22.       
    
23.         End With
    
24.    
    
25.     DB1.Close
    
26.     Set RS1 = Nothing
    
27.     Set DB1 = Nothing
    
28. 
    
29. 
    
30. End Sub

复制代码

请教各位大大，上面两段代码基本上一模一样，请问为什么下面这一段不可以运行。

suwenkai

没有文件，就猜一个。估计是没有引用

1.     Dim RS1 As Recordset
   
2.     Dim DB1 As Database

复制代码

jiangdong110

suwenkai 发表于 2013-2-20 20:16
没有文件，就猜一个。估计是没有引用

但是我上面一段代码也是这样的，但是第一段可以运行，但是第二段不可以的