lblplayer(0).DataBindings.Add("Text", objDataView, "Schauspieler")

 Me.BindingContext(Me.objDataView).Position += 1
 
 
        For x = 0 To 19
            lblplayer(x + 1).Text = ""
            i = InStr(lblplayer(x).Text, ",")
            If i > 0 Then
                leng = Microsoft.VisualBasic.Len(lblplayer(x).Text)
                string1 = Microsoft.VisualBasic.Left(lblplayer(x).Text, i - 1)
                lblplayer(x + 1).Text = Microsoft.VisualBasic.Right(lblplayer( _
                  x).Text, leng - i - 1)
                lblplayer(x).Text = string1
                If i = 0 Then
                    lblplayer(x + 1).Text = ""
                End If
            End If
        Next