Llenar Combobox vb.net y Mysql

[Ponchale]

Bueno aqui les traigo este codigo para que no mueran en el intento de llenar un combobox con datos que tienen almacenados en su base de datos con ejemplo y todo.

Código: (vbnet) [Seleccionar]

dim Strsql as String
 Strsql = "select * from tamodulos"
          Dim ds As New DataSet
        Dim da As MySqlDataAdapter
    da = New MySqlDataAdapter(Strsql,cnn)
        ds = New DataSet
       
        Try
        da.Fill(ds)
                 
        comboBox1.DataSource = ds.Tables(0)
        comboBox1.DisplayMember = "tanommod"
'tanommod es el campo que quiero que muestren el combobox al ejecutar la aplicacion
        comboBox1.ValueMember = "tanommod"
        Catch ex As MySqlException
        MsgBox(ex.Message.ToString)
        End Try

espero que lo disfruten y les sea de gran ayuda