Try
            'Dim ConexionExitosa As Boolean = True
            Dim Conexion As MySQLConnection
            Dim sqlQuery As MySQLCommand = New MySQLCommand
            Conexion = New MySQLConnection(New MySQLConnectionString("localhost", "tdb", "root", "mipass").AsString)

            Conexion.Open()
            sqlQuery.Connection = Conexion
            sqlQuery.CommandText = "SELECT * FROM t_categorias;"
            Dim drdrop As System.Data.IDataReader
            drdrop = sqlQuery.ExecuteReader()
            While drdrop.Read
                Me.dropCat.Items.Add(drdrop("cat_nombre"))
            End While

        Catch ex As Exception
        End Try