Ola pessoal, Gostaria de Verificar como Abrir um relatório Crystal com base dados Sql 2000

Ola pessoal, estou tentanto abrir um relatório crystal reporte e bd Sql 2000 dessa formar: para base access 2000 esta fazendo dessa forma
   Cr1.DataFiles(1) = app.path & "BandoDeDados.Bmp" 
    Cr1.WindowState = 2
    Cr1.WindowControlBox = True
    Cr1.ReportFileName = App.Path & "Report1.rpt"
    Cr1.Destination = 0
    Cr1.Action = 1

Jair Lopes

jl.sma@ig.com.br