Dim i As Integer
        Dim tmp As String = ""
        For i = 0 To CType(Me.ComboBox1.DataSource, XXXXXXX).Rows.Count - 1
            tmp = tmp & CStr("" & CType(Me.ComboBox1.DataSource, DataTable).Rows(i)(Me.ComboBox1.DisplayMember)) & vbCrLf
        Next
        MsgBox(tmp)