Crystal Report - Conexion a Sql y BD, TRABAJANDO

AKI LES DEJO EL CODIGO DE LA CONEXION DE CRYSTAL XI HACIA SQL SERVER 2000 Y 2005 CON LAS DOS TRABAJA , ESTE DOCIDOG ES DE VB.NET 2005, SE LOS DEJO PORK BATALLE MUCHO PARA PODER HACERLO Y A VECES EN LOS FOROS NO ENCONTRAMOS ALGON CONCISO...BYE Y SALUDOS...

Dim idventa As Integer

' Carga la conexion hacia el reporte para k este se conecte a la bd y servidor
Private Sub SetDBLogonForReport(ByVal Myconn As ConnectionInfo, ByVal RpDocFact As ReportDocument)

RpDocFact.FileName = "C:\Documents and Settings\Administrator\Desktop\Rptfacturacion.rpt"
Dim myTables As Tables = RpDocFact.Database.Tables
For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
myTableLogonInfo.ConnectionInfo = Myconn
myTable.ApplyLogOnInfo(myTableLogonInfo)
Next
End Sub

'configura la conexion del reporte hacia la base de datos y servidor

Private Sub ConfigureCrystalReports()

Dim myconn As ConnectionInfo = New ConnectionInfo
'myconn.ServerName = "sistemasdos"
myconn.DatabaseName = "puntoventasql"
myconn.UserID = "sa"
myconn.Password = "sisaliser"
SetDBLogonForReport(myconn, reportDocument1)
End Sub

'manda el valor al reporte rptfacturacion

Private Sub reporte()

ConfigureCrystalReports()
Dim Parametros As New ParameterFields
Dim parametro As New ParameterField
Dim dVal As New ParameterDiscreteValue
parametro.ParameterFieldName = "ventaid"
dVal.Value = idventa
parametro.CurrentValues.Add(dVal)
Parametros.Add(parametro)
rptfactura.ParameterFieldInfo = Parametros
rptfactura.Refresh()
rptfactura.Show()
End Sub

fijate que intente conectar mi crystal report a SQL con el codigo que diste pero me da un error soy nuevo y no lo entiendo... el error es en esta linea...

SetDBLogonForReport(myconn, reportDocument1)

dice que no se ha declarado el nombre reportDocument1

talvez sea una sencilles pero yo no le entiendo sera que me podrias explicar

es que te falta agregar ese control se llama reportdocument y esta en la parte de crystalreports de la barra de herrramientas