Dim myRel1PK_Cols() As DataColumn = {ds.Tables("curPROFOL").Columns( _
              "PROFOL")}
            Dim myRel1FK_Cols() As DataColumn = {ds.Tables("curDATA").Columns( _
            "PROFOL")}
            ds.Relations.Add(New DataRelation("Rel1", myRel1PK_Cols, _
            myRel1FK_Cols))
 
            bsProFol.DataMember = "curPROFOL"
            bsProFol.DataSource = ds
            bsProFol.Filter = ""
            Me.cboProFol.DataSource = bsProFol 'ds.Tables("curPROFOL")
            Me.cboProFol.ValueMember = "PROFOL"
            Me.cboProFol.SelectedIndex = 0