请高手帮忙？？？

Question

Private  Sub  Command1_Click()  
       a  =  a  &  CStr(i)  
       On  Error  Resume  Next  
           Set  a  =  Controls.Add("VB.frame",  "textbox1")  
       ‘’‘    可是以它a  不认为是变量。’‘’  
     ‘’‘      用'"  &  a  &  "  '  方法引用变还是出错’‘’  
           Set  textboxa1  =  a  
           textboxa1.Visible  =  True  
           textboxa1.Text  =  "文本框控件"  
           textboxal.Top  =  500  *  i  
           i  =  i  +  1  
End  Sub  
         请您帮忙？？？？？    还有一个问题想在用ADO连接得知道ACCESS的版本，再接用ADO连接，？？？
         请您帮忙？？？？？？

Answer 1

dim ido until XXXX'结束条件
       a  =  a  &  CStr(i)  
       On  Error  Resume  Next  
           Set  a  =  Controls.Add("VB.frame",  "textbox1")  
       ‘’‘    可是以它a  不认为是变量。’‘’  
     ‘’‘      用'"  &  a  &  "  '  方法引用变还是出错’‘’  
           Set  textboxa1  =  a  
           textboxa1.Visible  =  True  
           textboxa1.Text  =  "文本框控件"  
           textboxal.Top  =  500  *  i  
           i  =  i  +  1  
loop