Ejemplo de conexion con VB 60 + CR90 + SQL Server
Te envio el codigo de ejemplo para que te conectes a SQL Server 2000 desde VB 6.0, con OLEDB(ADO), con el Cristal Report Viewer de Cristal Report Developer edition Ver 9.0
Como veras puedes cambiar las cadenas en los parametros para la conexion a tu base de datos.
Como con CR90 ya integra de ejor manera OLEDB, puedes usar cualquier cadena valida de OLEDB para conectarte a cualquier BD.
Saludos desde Mexico DF.
Dim Report As New CrystalReport1
Dim cnxcr As CRAXDDRT.ConnectionProperties
Private Sub Form_Load()
Set cnxcr = Report.Database.Tables(1).ConnectionProperties
With cnxcr
.Item("Provider") = "SQLOLEDB"
.Item("Data Source") = "DERILEQ-SERVER"
.Item("Initial Catalog") = "DERILEQ"
.Item("User Id") = "sa"
.Item("Password") = "sa"
.Item("Connect Timeout") = 60
.Item("General Timeout") = 60
End With
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub