Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User" & _
  "ID=postgres;Data Source=postgres;" _
   & "SERVER=174.165.0.192;" _
   & "DATABASE=postgres;" _
   & "PWD=postgres;"
conn.Open
 
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tabelle", conn, adOpenStatic, adLockReadOnly
 
Dim crystal As CRAXDRT.Application
Dim report As CRAXDRT.report   
 
Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport(App.Path & "\Reports\mein_report.rpt")
 
report.DiscardSavedData
report.Database.SetDataSource rs
 
CRViewer.ReportSource = report
CRViewer.ViewReport
 
 
rs.Close
Set rs = Nothing
 
conn.Close
Set conn = Nothing
 
Set crystal = Nothing
Set report = Nothing