求救！帮我看看程序为什么报对象名无效“xjjbxx”

前面load和yx_click,都是对的，运行commok_clock（）就报对象名无效“xjjbxx”可xjjbxx是表名啊，和前面的连接一模一样，why！！  Dim adoconn As ADODB.Connection
  Dim adors As ADODB.Recordset
  Dim adors1 As ADODB.Recordset
  Dim adors2 As ADODB.Recordset
  Dim adors3 As ADODB.Recordset
  Dim adors4 As ADODB.Recordset
  Dim adors5 As ADODB.Recordset
  
Private Sub CommOK_Click()
        Set adoconn = New ADODB.Connection
        Set adors = New ADODB.Recordset
        sConnectionString = "provider=sqloledb;data source=210.45.240.136;initial catalog=stuinfosys;uid=sa;pwd=8172045"
        adoconn.Open sConnectionString
        adors.Open "select * from xjjbxx ", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
                 
End SubPrivate Sub Form_Load()
  Set adoconn = New ADODB.Connection
  Set adors1 = New ADODB.Recordset
  Set adors2 = New ADODB.Recordset
  Set adors3 = New ADODB.Recordset
 
  
  sConnectionString = "Provider=MSDASQL.1;Password=8172045;Persist Security Info=True;User ID=sa;Data Source=jxgl;Mode=Read"
  adoconn.Open sConnectionString
  
  adors1.Open "select * from dm_mz", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
  While Not adors1.EOF
   mz.AddItem adors1!mc
    adors1.MoveNext
  Wend
  
  adors2.Open "select * from dm_jg", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
  While Not adors2.EOF
   jg.AddItem adors2!mc
    adors2.MoveNext
  Wend
  
   adors3.Open "select * from dm_yx", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
  While Not adors3.EOF
   yx.AddItem adors3!yxmc
    adors3.MoveNext
  Wend  
  
End SubPrivate Sub yx_click()
  zy.Clear
  Set adoconn = New ADODB.Connection
  Set adors4 = New ADODB.Recordset
  sConnectionString = "Provider=MSDASQL.1;Password=8172045;Persist Security Info=True;User ID=sa;Data Source=jxgl;Mode=Read"
  adoconn.Open sConnectionString
  adors4.Open "select * From dm_zy where left(zydm,2) in (select yxdm from dm_yx where yxmc='" & yx.Text & "')", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
  While Not adors4.EOF
   zy.AddItem adors4!zymc
    adors4.MoveNext
  Wend
End Sub