这是我写的代码 Private Sub cmdok_Click() Dim username, password As String Data1.RecordsetType = 0 username = Text1.Text password = Text2.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控件等）有所了解应看些什么书？？