Do jeito que o Martini, fez obriga a vc ter um Dsn ,ou seja, uma fonte de dados ODBC na máquina.
Deste modo não precisa ter:
For I = 1 To Report.Database.Tables.Count
Report.Database.Tables.Item(I).SetLogOnInfo Trim(st_Server), Trim(st_DataBase), Trim(st_User), Trim(st_Password)
Next
Espero Ter Ajudado.
Qualquer coisa me avise que passo este exemplo por e-mail para vc.