CRAXDRT.Dll (CR XI Viewer)

[cid]

I believe so....

here is the code, for the form...

Option Explicit
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Private Sub Form_Load()
  Dim oApp As CRAXDRT.Application
    Dim oReport As CRAXDRT.Report
    Dim sSQL As String
 
    sSQL = "SELECT * FROM Permits Where " & frmSearch.Combo1.Text & " Is Like " & frmSearch.txtsearch.Text
    Set rs = New ADODB.Recordset
    Set rs = cn.Execute(sSQL)
    Set App = New CRAXDRT.Application
    Set oReport = oApp.OpenReport(App.Path & "\Surface.", 1)
    oReport.Database.SetDataSource rs, 3, 1
    crvMyCRViewer.ReportSource = oReport
    crvMyCRViewer.ViewReport
End Sub