关于EVB中的一个添加数据表信息的问题

Question

数据库我已经成功建立了，只有一个表格可进行添加，删除，修改操作，其中有一个表格第一次添加信息是可以的 ，然后添加第二条信息的时候按钮就没有了反映。还有几个表格根本就添加不进去数据。毕业答辩在即，请高手的哥哥姐姐们帮忙调试下。改好的可以发到我邮箱里[email protected]还可以联系我QQ：327627724 万分感谢！！！

Answer 1

Private Sub CmdCreateClient_Click()（这个表格添加不进去信息，是不是建立的有问题？）
'创建顾客信息表
 On Error Resume Next
Dim con As ADOCE.Connection
Set con = CreateObject("ADOCE.Connection.3.0")
  con.Open "\my documents\baoxian.cdb"
  con.Execute "Create Table client (cname varchar(20),csex char(2),cage int,ctel varchar(20),cnumber varchar(20),cid varchar(10),ckind varchar(40),cyear int,cmoney int,caddress varchar(50),eid varchar(10))"
  
Dim errors As Variant
For Each Error In con.errors
     MsgBox Error.Description
Next
MsgBox "顾客信息表创建成功！", vbOKOnly
CmdCreateClient.Enabled = FalseEnd SubPrivate Sub Command21_Click()(这个只能添加一次信息，然后按钮怎么点击也没有用了)
'添加后台管理信息 On Error Resume Next
If Text38.Text = "" Or Text39.Text = "" Then
      MsgBox "存在空信息！"
      Exit Sub
    End If
Dim tab2 As ADOCE.Recordset
Dim tab3 As ADOCE.Recordset
Dim con As ADOCE.Connection  Set tab2 = CreateObject("ADOCE.Recordset.3.0")
  Set tab3 = CreateObject("ADOCE.Recordset.3.0")
  Set con = CreateObject("ADOCE.Connection.3.0")
  
  con.Open "\my documents\baoxian.cdb"
  tab3.Open "backup", con, adOpenKeyset, adLockOptimistic
  
  tab2.Open "select * from backup", con, adOpenKeyset, adLockOptimistic
    
  If tab2.BOF And tab2.EOF Then
  tab3.AddNew
  tab3.Fields("bid") = Trim(Text38.Text)
  tab3.Fields("bpassword") = Trim(Text39.Text)
  tab3.Update
  
  Text38.Text = ""
  Text39.Text = ""
  
  
  MsgBox "后台管理信息添加成功", vbOKOnly
End If
End Sub