把myr作为private成员变量写在Sub Command3_Click()外面
Set myrs = mycon.Execute("select * from book")修改为
if myrs is nothing then Set myrs = mycon.Execute("select * from book")
就是七七的博客如何用VB6.0版编写一个变色的程序?在窗体添加一个标签,一个计时器控件,Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = "字体随机变色" End Sub Private Sub .用VB...