请高手指点！

Question

 iComAPort = Adodc1.Recordset.Fields("CodeAcom")               
  iComBPort = Adodc1.Recordset.Fields("CodeBcom")              
     Select Case iComAPort
     Case Is = 1
       MnuComA1.Checked = True
     Case Is = 2
       MnuComA2.Checked = True
     Case Is = 3
       MnuComA3.Checked = True
     Case Is = 4
       MnuComA4.Checked = True
      End Select
    
     Text1.Text = iComBPort     Select Case iComBPort
     Case 1
       MnuComB1.Checked = True
     Case 2
       MnuComB2.Checked = True
     Case 3
       MnuComB3.Checked = True
     Case 4
       MnuComB4.Checked = True
         End Select请问为什么Text1.Text 没有内容？
Select Case iComBPort后面也不执行

Answer 1

iComBPort = Adodc1.Recordset.Fields("CodeBcom")   后面加 debug.print iComBPort 
看看立即窗口里有没有东西也可以在iComBPort = Adodc1.Recordset.Fields("CodeBcom")加断点，然后运行到这里，单步运行一下，将鼠标移动到iComBPort查看是不是有值

Answer 2

下班的时候匆忙发帖，说的不是很清楚。iComAPort和  iComBPort的值分别是1、2， 一直运行到Text1.Text = iComBPort之前都正常，之后就出问题了，Text1.Text并没有等于2,

Answer 3

那text1.text里面是什么？
你怎么确定iComAport和iComBPort里面的值是1，2？