Next and Previous buttons in VB 2008

See more:

VB

.NET

Does anyone know of any code that can be used to move to next record when making a visual basic 2008 application, i have tried these but none of them work

Private Sub RecLocation()
  me.lblLocation.text = ((Me.BindingContext (objDsCompany, "Worker").Position +1).ToString + " of ") _
  + Ne.BindingContext(objDsCompany, "Workers").Count.ToString)
  RecLocation
End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e .....)
 Me.BindingContext(objDsCompany, "Worker").Position =0
 RecLocation
End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e .....)
  Me.BindingContext(objDsCompany, "Worker").Position = (Me.objDSCompany.Tables("Worker").Rows.Count -1)
  RecLocation()
End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e .....)
  Me.BindingContext(objDsCompany, "Worker").Position =Me.BindingContext (objDsCompany, "Worker").Position +1)
  RecLocation()
End Sub

Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e .....)
  Me.BindingContext(objDsCompany, "Worker").Position = Me.BindingContext(objDsCompany, "Worker").Position -1)
  RecLocation
End Sub