CRAXDRT.Dll (CR XI Viewer)

[cid]

Ok thanks for the help so far...

Error:
Invalid TLV Record:

Option Explicit
Private Sub Form_Load()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\TractPro.mdb; Persist Security Info=False"
  Dim oApp As CRAXDRT.Application
    Dim oReport As CRAXDRT.Report
    Dim sSQL As String
    sSQL = "SELECT * FROM Permits"
    cn.Open
    Set rs = cn.Execute(sSQL)
    Set oApp = New CRAXDRT.Application
    Set oReport = oApp.OpenReport(App.Path & "\Surface.rpt", 1)
    oReport.Database.SetDataSource rs, 3, 1
    crvMyCRViewer.ReportSource = oReport
    crvMyCRViewer.ViewReport
End Sub

Anyone have any ideas... while you guys try and work this out with me, im going to google and find out what a TLV record is