I have written the following code for passing recordset . still no luck. I am getting an error of "table not found?"

Following is the code
Code:
Dim m_Report as new CrystalReportSmple

Private sub Form1()
Dim strconn As String
Dim rsCompany As ADODB.Recordset
Screen.MousePointer = vbHourglass

Set m_Connection = New ADODB.Connection
Set rsCompany = New ADODB.Recordset
''''''''''''''Connection Sting'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
strconn = "DRIVER={MySQL ODBC 3.51 Driver};user=test;password=test;server=localhost;Database=TestDatabase;option=16427"
m_Connection.Open strconn
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Query = "SELECT FirstName,LastName,Address,City FROM tblcustomers "
rsCompany.Open Query, m_Connection, adOpenStatic, adLockOptimistic

''''''''''''''''''''''''''''''''''''''''''''''Getting Error at this line'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

m_Report.Database.SetDataSource rsCompany

''''''''''''''''''''''''''''''''''''''''''''''Mapping to unbound fields''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With m_Report
.UnboundString1.SetUnboundFieldSource "{tblcustomers.FirstName}"
.UnboundString2.SetUnboundFieldSource "{tblcustomers.LastName}"
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' View the report
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub