vb没法运行，求帮助。

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

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