Le rapport ne contient aucune table

bonjour,
j'ai un problème dans le chargement du crystal report .le code est comme suit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 Dim vlreq As String
  Dim vlTable As String = "assurance"
 
 Dim myReport As New ReportDocument
 
vlreq = " select assurance.NUM_ASSURANCE,assurance.IMMATRICULATION,assurance.CAT_ASSURANCE,assurance.DATE_ASSURANCE,assurance.DATE_EXPIRE,assurance.ASSUREUR from Assurance "
 
   Dim QueryString As String
 QueryString = vlreq
 
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter(QueryString, pp.vconnexion1)
            Dim ds As New DataSet
            CRV.Show()
            myReport.Load(AppDomain.CurrentDomain.BaseDirectory + "Imprimer\CrAssuranceVeh.rpt")
 
            CRV.CrystalReportViewer1.ReportSource = myReport
            myReport.SetDataSource(ds)
 
            CRV.CrystalReportViewer1.Refresh()

lorsque j’exécute mon application le message d'erreur qui apparaîtra est comme suit:

Citation:

Le rapport ne contient aucune table

quelqu'un a une idée sur ça.Merci