Relatorio no Crystal 9

[TaP 0]

Galera estou tentando o seguinte codigo:

 

Private Sub Form_Load()

Dim crystal As CRAXDDRT.Application

Dim relatorio As CRAXDDRT.Report

 

relat_mov.DisplayBorder = False

relat_mov.DisplayTabs = False

relat_mov.EnableDrillDown = False

relat_mov.EnableRefreshButton = False

 

Set rs = cn.Execute("Select * from convmov where vendedor = '" & comboven & "'")

 

Set crystal = New CRAXDDRT.Application

 

Set relatorio = crystal.OpenReport(App.Path & "\relat_mov.rpt")

'relatorio.DiscardSavedData

relatorio.Database.SetDataSource rs

relat_mov.ReportSource = relatorio

relat_mov.ViewReport

 

End Sub

 

Estah dando o seguinte erro:

Subscript out of range

 

Oque pode ser??

 

Preciso disso urgente, pois o projeto já está pronto só faltando os relatorios. Se eu não entregar na sexta perco o cliente.

 

Por favor!!!!!

[TaP 0]

O erro já parou de acontecerSó que no relatorio ele não traz nada!!!! Vem em branco!!!Oque eu tenho que fazer??