Relatorio no Crystal 9

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!!!!!