请帮忙看看
这是我写的代码
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控件等)有所了解应看些什么书??