Ok, you need to use either the applicaton LogOnServer method or the Database Table object's SetLogonInfo method. Some sample code for the SetLogonInfo is shown below. Use the SetLogonInfo before calling the printout method:
Dim crApp as New CRAXDRT.Application
Dim crRpt as CRAXDRT.Report
Set crRpt = crApp.OpenReport("myreport.rpt"
Set crDB = crRpt.Database
Set crTables = crDB.Tables
For Each crTable In crTables
'For a native connection, SetLogOnInfo arguments are ServerName, DatabaseName, UserName, and UserPassword
crTable.SetLogOnInfo "dell-laptop", "Northwind", "green", "password"
'For an ODBC connection, SetLogOnInfo arguments are ODBC ConnectionName, DatabaseName, UserName, and UserPassword
'crTable.SetLogOnInfo "Northwind", "Northwind", "green", "password"
Next
Use the appropriate syntax for your connectivity (ODBC, native). If you're using OLEDB, you'll need a different syntax as well. It's helpful if you mention your connectivity and Crystal version number in your posts.