这是我写的代码
Private Sub cmdok_Click()
Dim username, password As String
Data1.RecordsetType = 0
username = Text1.Text
password = Text1.Text
Data1.Recordset.Index = "用户名"
Data1.Recordset.Seek "=", username
If Data1.Recordset.EOF = True Then
MsgBox "无此用户"
Exit Sub
End If
If Data1.Recordset.Fields("密码") = password Then
usefrm.Show
Unload Me
Else
MsgBox "密码错误"
End If
End Sub
数据库用的Access,Data控见的属性我也设好了的，表的索引建的是“用户名”，可一调试就出错。错误画面我放在附件里的。
他说不是有效的索引，让我用tabledef弄，我才开始用VB都不懂的，郁闷。

顺便请教一下各位我想对VB的高级应用（比如数据库，或则ActiveX控件等）有所了解应看些什么书？？

斑竹，谢了！

1。 MsgBox "无此用户" 系统能识别

2。因为 If Data1.Recordset.EOF = True Then 所以有 MsgBox "密码错误"

其实这些都不是主要的，最重要的是数据库用的Access,Data控见的属性我也设好了的，表的索引建的是“用户名”，可一调试就出错。他说“用户名”不是有效的索引，让我用tabledef弄

《visval basic 程序设计实用教程》我周六就去看，谢了。

还有怎么把我机子上的图片贴到帖子上，用附件好象不行。

我也是学生，不过马上要毕业了。 我大四了，现在在北京实习。

遇到一些问题。虽然不是学计算机的，但我爱好编程，工作是搞编程的，以后互相学习。

我是重庆人，不过现在在北京工作。

我就读于五流大学。

学电子的，有空多探讨编程方面的事。

谢了

大家以后多切磋。