Private Sub ShowPosition()
CurrentRecord = Me.BindingContext(ds, "population").Position + 1
' lblRecord.Text = "" & CurrentRecord & " / " & RecordCount
If CurrentRecord > 0 Then
If Convert.ToString(dt.Rows(CurrentRecord - 1).Item("LOCALID")) = "1" Then
CheckBox1.Checked = True
ElseIf Convert.ToString(dt.Rows(CurrentRecord - 1).Item("LOCALID")) = "0" Then
CheckBox1.Checked = True
End If
End Sub