获取combobox

 '获取ComboBox
        Try
            Dim StrCon As String = Label1.Text
            Dim MyConn As OleDbConnection = New OleDbConnection()
            MyConn.ConnectionString = StrCon
            Dim StrCom As String = "sql"
            Dim MyData As New DataSet
            MyConn.open()
            Dim mycom As OleDbDataAdapter = New OleDbDataAdapter(StrCom,MyConn)
            mycom.Fill(MyData,"1")
            ComboBox1.DataSource = MyData
            ComboBox1.displayMember = "1.1"
            ComboBox1.ValueMember = "1.2"
            MyConn.Close()
        Catch ex As Exception
            MsgBox("出错！")
        End Try