数据库程序，那错了，热心的人帮助一下。

Question

我这里测试没问题！
select * from titles  看一下是不是不够5个字段？

Answer 1

可以用text(i).text =rsstudentinfo.fields![字段名]试试！

Answer 2

应该用：
Text1(i).Text = rsstudentinfo.Fields(i)
或是：
Text(i).Text = rsstudentinfo.Fields(i)
具体名字得根据你的text的名字。

Answer 3

我看过你的源程序了，
你的这句话当然错了，Texti(i).Text = rsstudentinfo.Fields(i)，  
Texti名写错了呗，当然报编译错误（子程序或函数未定义），
应该用
Text(i).Text = rsstudentinfo.Fields(i)
另外你的msgbox函数都写错了，有些function里的if语句也有问题，稍微改一改就可以了。

Answer 4

Text(i).text或Text1(i).text我都试过了,就是不行,不知道为什么?我快昏了.
怎么就是找不出来呢,,,,,,,,热切望着大家??

Answer 5

你的代码错的地方不止一处，检查的时候细心一下：
1.Private Sub cmdAdd_Click()
   For i = 0 To 4
   '注是 i 不是1
      Text(i).Text = ""   Next i
  End Sub2.你报错的地方
Public Sub displaystudentinfo()
If rsstudentinfo.RecordCount > 0 Then
   For i = 0 To 4
     ''Texti(i).Text = rsstudentinfo.Fields(i)
     '去掉Text后面的i
      Text(i).Text = rsstudentinfo.Fields(i)   Next i
Else
   MsgBox "错误"
End IfEnd Sub3.一点建议，rsstudentinfo.Fields(i)取得数据记录时最好判断一下是不是为NULL,例如，可以写为下面的代码，使用isnull函数Text(i).Text = iif(isnull(rsstudentinfo.Fields(i)),"",rsstudentinfo.Fields(i))
4.再一点建议，将工程属性设为强制声明
具体方法
(1).工具－>选项－>编译器:勾中要求变量声明
(2)在窗体的最上方也就是你的
  Dim gconnection As ADODB.Connection
  Dim rsstudentinfo As ADODB.Recordset  两行代码的上方写
  Option Explicit
这样工程运行时首先检查没定义的变量，给你提示