vb代码问题

dim conn as new adodb.connect
din rec1 as new adodb.recordset
private sub sub1（str1 as string)
    ser rec1=conn.ＥＸＥＣute（"select * from yourtable where 柜号='" & trim（str1) & "'")
    if not rec1.eof then
         while not rec1.eof
              combox1.additem rec1!要显示的数据列名
                rec1.movenext
         loop
    endif
end sub

private sub command1_click（index as integer)
    b = val（text1)  '获取数量
    for i = 1 to b   '循环
        load command1（i) '加载
        command1（i).visible = true  '使其可见
        '下面这句代码用来设置控件的位置,刚加载的控件位置和原来的在一起的
        '我们必须自己设定它的新位置
        '下面这句的意思是 新控件的top = 上一控件的top + 控件高度 + 20
        command1（i).top = command1（i - 1).top + command1（i).height + 20
    next i
end sub

private sub form_load（)
text1 = "输入数量"
text1.selstart = 0
text1.sellength = len（text1)
end sub

private sub command1_click（index as integer)
    b = val（text1)  '获取数量
    for i = 1 to b   '循环
        load command1（i) '加载
        command1（i).visible = true  '使其可见
        '下面这句代码用来设置控件的位置,刚加载的控件位置和原来的在一起的
        '我们必须自己设定它的新位置
        '下面这句的意思是 新控件的top = 上一控件的top + 控件高度 + 20
        command1（i).top = command1（i - 1).top + command1（i).height + 20
        command1（i).caption = "新控件" & i
    next i
end sub

private sub form_load（)
text1 = "输入数量"
text1.selstart = 0
text1.sellength = len（text1)
end sub