VB.NET Funcion para cargar un Combobox

Esta función nos permite cargar un combo box con los datos de una tabla.

'Funcion para carga un combobox
    Public Sub Cargar_Combo(ByVal ComboBox As ComboBox, ByVal sql As String)

        Try
            Dim cmd As New OdbcCommand(sql, conn)
            Dim da As New OdbcDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds)
            ComboBox.DataSource = ds.Tables(0)
            ComboBox.DisplayMember = ds.Tables(0).Columns(0).Caption
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, _
                            "Error", MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
        End Try
    End Sub