VB.net访问数据库问题

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“StudentDataSet.基本情况”中。您可以根据需要移动或移除它。
        Me.基本情况TableAdapter.Fill(Me.StudentDataSet.基本情况)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.BindingContext(StudentDataSet, "基本情况").Position = Me.BindingContext(StudentDataSet, "基本情况").Position + 1

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub

End Class
这段代码只能显示首条记录，点击下一条却无法显示。跪求