DR = CType(BindingSource.Current, DataRowView).Row
Label1.Text = DR(0).ToString()
Label2.Text = DR.RowState

Private ReadOnly Property CurrentRow as DataRow
  Get
    if BindingSource.Current IsNot Nothing Then
      return CType(BindingSource.Current, DataRowView).Row
    End If
    return Nothing
  End Get
End Property
 
 
..
Label1.Text = CurrentRow(0).ToString()
Label2.Text = CurrentRow.RowState.ToString()