Visual Basic - Conexión Mysql con Excel

Hola a todos,

Estoy intentado hacer la conexión entre excel 2010 y mysql con Visula basic he configurado el ODBC y funciona todo OK el Windows 7 es 32 bits el código es el siguiente:

He habilitado la siguiente referencias:

-Microsoft ActiveX Data Objects 2.0 Library

-Microsoft DAO 3.6 Object Library

Codigo:

Public Conn As ADODB.Connection ' Permite conectarnos a la base de datos
Public Rs As ADODB.Recordset 'Almacena el resultado de nuestras consultas
Private Function Conectar() As Boolean
On Error GoTo Ver

Private Function Conectar() As Boolean
On Error GoTo Ver

Set Conn = New ADODB.Connection
Conn.ConnectionString = "driver={MySQL ODBC 5.2 ANSI Driver};" & _
"Server=miservidor;" & _
"Port=3306;" & _
"Database=base;" & _
"User=ususario;" & _
"Password=password;" & _
"Option=3;"

Conn.Open

Conectar = True

Exit Function
Ver:
Err.Clear
Conectar = False
End Function
Private Sub PruebaConexionMysql()

If (Conectar) Then

MsgBox "Conexión Exitosa"

Else

MsgBox "Conexión Fallida"
End If

End Sub


Y el error es:

Se esperaba: fin de la instrucción.

Y también me dice, se ha detectado un nombre ambiguo: Conectar.

Muchas gracias a todos!!

En que linea te da la novedad


luego lo es por qu e Tienes repetida la funcion