Excel+Listas enlazadas+mysql

[negro1985]

Buen dia foreros necesito que una lista hecha desde datos->validacion de datos, me carga valores de una base de datos, me refiero a lo siguiente, por ejemplo tengo la lista de estados y dependiendo de lo que seleccione me cargue sus respectivos municipios en otra celda, alguien puede ayudarme por favor, no se como hacerle y ya googlee y nada, :s gracias de antemano

Código:

Private Function Conectar() As Boolean
On Error GoTo Ver

Set Conn = New ADODB.Connection
Conn.ConnectionString = "driver={MySQL ODBC 5.2 ANSI Driver};" & _
"Server=192.168.1.72;" & _
"Port=3306;" & _
"Database=sidsao;" & _
"User=root;" & _
"Password=220785;" & _
"Option=3;"

Conn.Open

Conectar = True

Exit Function
Ver:
Err.Clear
Conectar = False
End Function

Código:

Public Function Estados()
    On Error GoTo NoEncontrado
    Dim clave, nombre As String
    Dim query As String

    If (Conectar) Then
        query = "SELECT ID_ACTIVO,NOMBRE FROM activo"
        Set Rs = New ADODB.Recordset

        Rs.Open query, Conn, adOpenStatic, adLockOptimistic
        Row = 1 'primera celda
        Do While Not Rs.EOF
            Hoja2.Cells(Row, 1).Value = Rs("ID_ACTIVO")
            Hoja2.Cells(Row, 2).Value = Rs("NOMBRE")
            Row = Row + 1
            Rs.MoveNext
        Loop
        Rs.Close
    Else
        MsgBox "Error de conexion"
    End If
NoEncontrado:
Contrato = "Valores No Encontrados"
End Function

No se si este tema va aquí pero tiene relación con excel