vb无法运行，求帮助。。。
代码如下，错误的已标记出来：
Private Sub Command1_Click()
With DataEnvironment1.rsCommand1
.MovePrevious
If .BOF Then
.MoveLast
End If
End With

End Sub

Private Sub Command2_Click()
With DataEnvironment1.rsCommand1
.MoveNext
If .BOF Then
.MoveFirst
End If
End With
End Sub

Private Sub Command3_Click()
Unload Form1
End Sub

[解决办法]
提示了什么错误？
[解决办法]
还我的眼睛来
[解决办法]
我是新人学习喽