那位好心人能给段代码
后台数据库用ACCESS

我自己用ADODC写了几次
感觉思路好象没错
可一运行老是出现 错误 with 91

Private Sub Command1_Click()
With Adodc1.Recordset
.MoveFirst
Do While .EOF
If Text1.Text = .Fields("user_id").Value And Text2.Text = .Fields("pass").Value Then
Me.Hide
Else
MsgBox "你无权登陆"
End If
Loop
End With
End Sub
老是在第二条的时候就出现 with 错误９１
搞了好几天了　老是出错　
路过的好心人　高手都来帮帮忙