تعبئة comboboxمن datarow

السلام عليكم ورحمة الله وبركاته

احتاج الى تعبئة كومبوبوكس عن طريق datarow فأنا استعمل المعالج لتكوين داتا ست ومن تم اريد اضافة قيم معينة فقط ولكن لم اعرف كيف

ياريت المساعدة

                                                                  Me.OutsideTableAdapter.Fill(Me.ReminderSystemDataSet.Outside)
        Dim rows() As DataRow = ReminderSystemDataSet.Babyinfo.Select("outside= TRUE")
        If idbaby = 0 Then
            IDBabyComboBox.DataSource = ReminderSystemDataSet.Babyinfo.Select("outside= TRUE ")
            For Each row As DataRow In rows
                IDBabyComboBox.DataBindings.Add("SelectedItem", row, "BabyName")
                'IDBabyComboBox.DataBindings.Add("SelectedValue", row, "IDbaby")
                'IDBabyComboBox. = row("IDbaby")
                'IDBabyComboBox.Items.Add(row("BabyName"))
                'IDBabyComboBox.ValueMember = row("IDbaby")
            Next
            IDBabyComboBox.SelectedIndex = -1