Visual Basic - Urgente ! Como Me conecto a Sybase 11!!!

Estimados,

Necesito conectarme a una base de datos que esta en sybase 11 a travez de una funcion que es el modo que me conecto a sql

ejemplo
Public conn As ADODB.Connection
Public record As ADODB.Recordset



Public Function EstablecerConexion() As ADODB.Recordset
On Error GoTo Error



Set conn = New ADODB.Connection
Set record = New ADODB.Recordset



conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PaSsWord=123;Initial Catalog=informes;Data Source=kronos"
conn.Open
record.ActiveConnection = conn
Set EstablecerConexion = record



Exit Function
Error:
MsgBox "No se Puede Conectar a Servidor Kronos", vbInformation, "Encuadernación"
Exit Function
End Function

Ojala me puedan ayudar los que sepan o si saben de otra forma se lo agradeceria

Atte.
Sergio

le preguntas a tu compadre lincoln que hizo la misma pregunta mas arriba y yo le conteste.

esque eso del sybase 11 creo recordar que es de cuando yo empece con esto de la porgamacion hace unos diez años.