Thanks a million,
Jim

dim objcrapp as craxdrt.application
dim objreport as CRAXDRT.report
dim objDB as craxdrt.database

dim sDLLName as string

sDLLName = "p2sodbc.dll"

set objcrapp = new craxdrt.application
set objreport = objcrapp.netreport
set objdb = objreport.database

set objreport = objcrapp.openreport("report path")

objdb.logonserver sDLLName, DSN, "DatabseName", UserID, Password

objDB.Verify 'if error then exit sub with a user defined error

This works for me with out promption for userID and password.

If this is what exactly you have done and still it is prompting for user id
then check for the report design. Have you used trusted connection or SQL
log on?
If you have used trusted connection then the report will run only on your
machine.

Hope this helps.

--SriT

Thanks,
Jim

Dim myRpt2 As New Commercial_Statistics()

        Dim logonInfo As New CrystalDecisions.Shared.TableLogOnInfo()
        Dim table As CrystalDecisions.CrystalReports.Engine.Table

        ' Set the logon information for each table.
        For Each table In myRpt2.Database.Tables
            ' Get the TableLogOnInfo object.
            logonInfo = table.LogOnInfo
            ' Set the server or ODBC data source name, database name,
            ' user ID, and password.
            logonInfo.ConnectionInfo.ServerName = "NWS"
            logonInfo.ConnectionInfo.DatabaseName = "WOOLSYS"
            logonInfo.ConnectionInfo.UserID = "sa"
            logonInfo.ConnectionInfo.Password = "sa"
            ' Apply the connection information to the table.
            table.ApplyLogOnInfo(logonInfo)
        Next table

        CrystalReportViewer1.ReportSource = myRpt2

You are correct in that you can supply a dataset at run-time, but the report
will have to have been designed for this.  This is all well documented on
the crystal site:

http://www.crystaldecisions.com/x-jump/scr_net/

Laurie Paulin