小弟想实现一个窗口，刚开始根据数据库的true or false去控制一个label显示“激活”，“失效”，
然后点next实现下一个数据的显示。。。
今天研究了一下午，发现是在窗体load的时候recordset.fields过东西了导致.movenext无法使用
报错代码如截图，代码如下，求解决
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label_Time.Caption = "Current time: " & Now
'显示当前时间
Label_NT.Caption = "Login NT: " & Form_Login.Text_NT.Text
Label_User.Caption = "Login User: " & Form_Login.Adodc1.Recordset.Fields("UserName")
'根据登陆界面显示登录帐户和姓名
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Userlog.mdb;Jet OLEDB:Database Password=123;Everyone,123"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select*from PCBA_Basic_Information"
Adodc1.Refresh
If Adodc1.Recordset.Fields("Status") = true Then
Label_Status.Caption = "激活"
Else
Label_Status.Caption = "失效"
End If
End Sub
Private Sub Com_Next_Click()
With Adodc1.Recordset
.MoveNext
If .EOF Then
.MoveLast
MsgBox "已经到最后了", , "注意"
End If
End With
End Sub