Sorry should have previewed first it should be
=========================
Rep.Database.Tables(1).SetLogOnInfo "Server", "Table", "User", "Pass"
============================================
Even though it seems as though you are only gaining access to one...
===========================================================
Dim Appl As New CRAXDRT.Application
Dim Rep As New CRAXDRT.Report
Dim strReportDir As String
strReportDir = App.Path & "\RMSApp.rpt"
Set Appl = CreateObject("CrystalRuntime.Application")
Set Rep =...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.