高手急救，有关数据类型转换的问题！！！

各位高手好！我想实现号段录入，比如从0000001到0000010全部录入，用的是循环，但是这个比较特殊，用long存进去就成了1，2，3....10,怎样才能存成0000001，0000002，0000003，1000000呢？关键我要利用循环啊，我的代码是这样的

A和B都是string型的

Dim i As Long
For i = CLng(A) To CLng(B)
    conn.Execute "insert into [chehao] (车号) values ('" & i & "')"
Next i
    MsgBox "号段" & A & "至" & B & "全部录入完成！", vbOK --------------------编程问答-------------------- Dim   i   As   Long
For   i   =   CLng(A)   To   CLng(B)
   conn.Execute "insert into [chehao] (车号) values('" & string(7-len(i),"0") & trim(str(i)) &"')"
Next   i
MsgBox  "号段 "  &  A  &  "至 " &  B  & "全部录入完成！", vbOK --------------------编程问答-------------------- 楼上老大思路很好，不过出来还是不算对哦，如果是1000000，len（）求出来的长度竟然只有4，郁闷了 --------------------编程问答-------------------- Dim  i  As   Long
For  i   =   CLng(A)   To   CLng(B)
   conn.Execute  "insert into  [chehao] (车号)  values ( ' "   &  Format(i,"0000000") & " ') "
Next   i
   MsgBox   "号段 "   &   A   &   "至 "   &   B   &   "全部录入完成！ ",   vbOK --------------------编程问答-------------------- '或者把2楼的这样改一下也可以
String(7 - Len(Trim(Str(i))), "0") & i

--------------------编程问答-------------------- 楼主貌似要的是字符串类型
len(1000000)
len("1000000") --------------------编程问答--------------------

conn.Execute "insert into [chehao] (车号) values ('" & format(i,"0000000") & "')"

--------------------编程问答-------------------- 谢谢三楼和六楼高手，你们的方法很好，搞定了。 --------------------编程问答-------------------- 头条了?飘过~~~~~~~~~ --------------------编程问答-------------------- 支持一下

---------------------------
内推网 - 内部推荐求职快线
http://www.neitui.com

补充：VB ,  数据库(包含打印，安装，报表)