Hi, i'm trying to make DataReport with VB 6. But got Run-time error '13': Type mismatch. Here is my code:

Code:
Private Sub cmdGenerateReport_Click()
    Dim conString As String
    conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "Database.mdb;"
    
    Set con = New ADODB.Connection
    con.Open conString

    Set rec
...