de preferencia vb6. pero mira no quiero usar ODBC quiero hacer una cadena ADO.
Yo te comprendo, osea me confundi es OLE DB, a lo que me refiero es que te bajes el proveedor de sybase..., la verdad es que yo no lo tengo aca instalado, pero si lo he ocupado...
Te voy a dar un pequeño truco para construir las cadenas..., agregas un control ADODC, le das clic derecho en propiedades y te va a aparecer una pantalla como esta:

Luego, le das clic sobre el radiobutton de "usar cadena de conexion" y luego en el boton de generar..., te aparecera una ventana como esta:

Ahi una vez instalado el proveedor de sybase (OLE DB no ODBC, me equivoque) lo seleccionas y das clic sobre el boton siguiente (en mi caso dice Next)..., te aparecerá la siguiente ventana:

En esa ventana seleccionas el servidor, el usuario, password, nombre de la base de datos y finalmente das clic sobre el boton aceptar y en la primera ventana te aparecerá ya la cadena de conexion la cual podes utilizar en tu codigo de la siguiente manera:
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=munix;Data Source=(local)"
cnn.Open
Poniendo dentro de cnn.ConnectionString la cadena que te genero el asistente que acabo de mencionar..., pero si debes de bajarte el OLE DB Provider respectivo