各位大大，小弟菜鸟想实现从text1——text72中的数据自动存入对应的ACCESS数据库
具体是：代码是
Private Sub Form_Load()
Dim sql As String
Dim i As Integer
i = 0
  If i = 72 Then
i = 0
ElseIf i = i + 1 Then
sql = "insert into db1 values('" & Text73 & "','i ','" & Texti & "')"     text73是输入的日期，i是序号，texti是需要的数据
cnn.Execute (sql) 这个是调用的已经设置好的函数
Adodc1.Refresh
Texti.SetFocus
  End If
End Sub
单个的text已经能够实现存入数据库，但是我加入i 以后就不行了，请大大些明示

[[it] 本帖最后由 zhaohen520 于 2008-11-9 19:11 编辑 [/it]]

Texti不能这么用,要么你把Text1~Text72做成一个控件数组,要么你用CallByName

Texti这个写法新颖。

不过程序设计是严肃的，也是严格的，你要想想你这样写会不会产生歧义。你确定系统能读懂Texti中的i是下标吗？

那两位版主能指点下吗？我是边学边写，写下这个的代码？