Ayuda en consulta con Crystal Report 8 con Visual Basic 6

[twelve]

Hola que tal, mira yo tengo un proyecto.....con ete codigo completo..

Dim xcodigo As Integer

Private Sub cboRamos_Click()
xcodigo = cboRamos.ItemData(cboRamos.ListIndex)

End Sub

Private Sub cmdCerrar_Click()
Unload Me
End Sub

Private Sub cmdImprimir_Click()
crtControl.Reset
crtControl.WindowShowProgressCtls = True
crtControl.Destination = crptToWindow
crtControl.WindowState = crptMaximized

If optGeneral.Value = True Then
crtControl.ReportFileName = App.Path & "\" & "RptGeneral.rpt"
End If

If optEspecificos.Value = True Then
crtControl.ReportFileName = App.Path & "\" & "RptEspecifico.rpt"
crtControl.ReplaceSelectionFormula "{Productos.CodigoRamo}=" & xcodigo
End If

crtControl.Action = 1

End Sub

Private Sub Form_Load()

lblRamos.Visible = False
cboRamos.Visible = False

Sql = "Select * from Ramo ORDER BY Descripcion"

If Rs.State = 1 Then Rs.Close
Rs.Open Sql, Cn

Do While Not Rs.EOF
cboRamos.AddItem Rs!Descripcion
cboRamos.ItemData(cboRamos.NewIndex) = Rs!CodigoRamo
Rs.MoveNext
Loop

End Sub

Private Sub optEspecificos_Click()

lblRamos.Visible = True
cboRamos.Visible = True

End Sub

Private Sub optGeneral_Click()

lblRamos.Visible = False
cboRamos.Visible = False

End Sub

::::::::::::::::::::::::::
Te explico tiene en el formulario....2 botones de radio.Uno para reporte general..y otro para reportes especificos...

Aparte existe un control de ComboList..para el reporte por opcion especificos...
ademas existen un Button para imprimir los reportes y otro para cerrar...


La conexion es por ODBC...Dsn

En un Modulo tengo la conexion y el recorset...Asi:

Public Cn As Connection
Public Rs As Recordset
Public Sql As String

Public Sub Main()
Set Cn = New Connection
Set Rs = New Recordset
Cn.Open "DsnClase1"
FrmReportes.Show
End Sub


Si logras entender en el ComboList se cargan unos datos de la base de datos...por nombre he ahi la variable xcodigo..

Ah otra cosa el otro control es porsupuesto el control de cristal report...(crtControl) si sabes como configurar las especificaciones en el crystal report ..este mismo codigo debe ejecutarse muy bien....espero que de algo sirva