i found this, may be it helps to you
for i = 1 to report.database.tables.count
report.database.tables(i).setlogoninfo server
name,databasename, user id, password
next i
crviewer1.reportsource=report
crviewer1.viewreport
*** you need to put the server name. databasename, user id and...