Another Cr Question ! !

HELLO THERE FRIENDS.. I AM IN REAL NEED OF A SOLUTION FOR THIS QUERY..IF SOMEONE CAN HELP I WOULD REALLY BE GRATEFUL TO HIM/THEM.

BELOW IS A CODE WHICH I AM USING IN A FORM SUBMIT BUTTON CLICK_EVENT. THE REPORT IS CONNECTED TO A SQL SERVER/DATABASE VIA ODBC. NOW THE MAIN PROBLEM IS THIS INTERFACE WOULD USE MULTIPLE DATABASES AND IT SHOULD GENERATE THE REPORT USING THE DATA OF THE DATABASE SELECTED..I AM MAKING A CONNECTION IN THE LOGIN FORM 'CN' WHICH IS GLOBAL. USING THIS CONNECTION OBJECT I WILL CREATE A ADO RECORDSET OBJECT WHICH I WOULD LIKE TO PASS IT TO THIS CODE SO THAT THE REPORT WILL USE THE DATABASE WHICH THE USER HAD SELECTED AND WILL GENERATE THE REPORT USING THAT DB .. THE MAIN PROBLEM IS " HOW DO I USE A ADO RECORDSET OBJECT IN MY CRYSTAL REPORT CONTROL "

I HAD SEARCHED THIS FORUM FOR MY QUERY BUT FOUND MANY OF THE USERS USING A CRYSTAL REPORT VIEWER CONTROL AND CODE USING THAT ...BUT THAT WONT SOLVE MY PROBLEM..SO I AM POSTING THIS HERE..PL HELP

CR: CRYSTAL REPORT CONTROL
--------------------------

If BRANCH = "" Then
If COMM_TYPE = "" Then
CR.SelectionFormula = " {AWB.STATION} = " & "'" & STATION.Text & "'"
Else
CR.SelectionFormula = " {AWB.STATION} = " & "'" & STATION.Text & "'" & _
"AND " & " {AWB.COMM_TYPE} = " & "'" & COMM_TYPE.Text & "'"
End If
Else
If COMM_TYPE = "" Then
CR.SelectionFormula = " {AWB.STATION} = " & "'" & STATION.Text & "'" & _
"AND " & " {AWB.BRANCH} = " & "'" & BRANCH.Text & "'"
Else
CR.SelectionFormula = " {AWB.STATION} = " & "'" & STATION.Text & "'" & _
"AND " & " {AWB.COMM_TYPE} = " & "'" & COMM_TYPE.Text & "'" & _
"AND " & " {AWB.BRANCH} = " & "'" & BRANCH.Text & "'"
End If
End If

CR.WindowTitle = "Daily Production Report"
CR.ReportFileName = App.Path & "\Reports\Daily_ Production_Report.rpt"
CR.Action = 1