水晶报表映射问题

以下是一段调用水晶报表的源代码Dim CryApp As New CRAXDDRT.Application
Dim Report As CRAXDDRT.ReportDim strCnn As String
Set Report = CryApp.OpenReport(App.Path & "\report\contract.rpt")Dim cnn1 As New ADODB.Connection
Dim adoRS As New ADODB.RecordsetstrCnn = "Provider=MSDASQL.1;Data Source=material;Initial Catalog=material;User Id=sa;Password=******;"
cnn1.Open strCnnadoRS.Open "select * from tempcontractproduct", cnn1, adOpenDynamic, adLockBatchOptimistic
Report.DATABASE.SetDataSource adoRSCall printcontract.Show
Screen.MousePointer = vbHourglass
printcontract.CRViewer91.ReportSource = Report
printcontract.CRViewer91.ViewReport
Screen.MousePointer = vbDefault然后在报表中用数据库专家连接了两张表，表名分别为contract和tempcontractproduct，contract中的con字段和tempcontractproduct中的con字段为一对多关系，现已建立连接，现执行上面的代码发现一直跳出未映射对话框，说两张表里除con字段，其他字段为映射到报表中，点确定按钮报表为空，点取消按钮报表一部分数据显示，点报表刷新按钮才将数据显示完整。
问如何才能使未映射对话框不出现，并且是报表显示完整。
注：printcontract.CRViewer91.refresh 在Call printcontract.Show的load 事件中已经进行刷新。