conectar sybase con excel vba

[madison_sg]

Hola,

Estoy tratando de conectar excel vba con sybase. Ahora llevo una semana buscando la solucion a este problema y cambie el codigo para ver que me resulta pero al ejecutarlo me tira el error 3709 the connection cannot be used to perform this connection.

Dejo el codigo a continuacion:

Código:

Sub dos()


Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = "Driver={SQL Anywhere 17};Server=dggbi01-iq;Port=10000;Database=iqdm;Uid=l00404846;Pwd=wZkX#xCAs_u27V;"

rs.Open "select * from LGL_DM_MUDA_ALL_METRICS_SUM_F_V ", conn, adOpenStatic, adLockReadOnly, adCmdTable

With ThisWorkbook.Worksheets("test")

.Visible = True

.Range("a1:b1").Value = Array("PROJ_NUM", "PROJ_EN_NAME")

.Range("A2").CopyFromRecordset rs

.Activate

End With

rs.Close: Set rs = Nothing

conn.Close: Set conn = Nothing
End Sub

Alguien podria ayudarme por favor?