DataReport in visual basic 6

[sleith]

Hi, i'm trying to make DataReport with VB 6. But got Run-time error '13': Type mismatch. Here is my 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 = New ADODB.Recordset
 
    query = "select name from ms_people"
 
    rec.Open query, con, adOpenStatic, adLockOptimistic
 
    If rec.RecordCount > 0 Then
        Set DataReport1.DataSource = rec
        DataReport1.Sections("Section1").Controls("Text1").DataField = "name"
        DataReport1.Show
    End If
 
    rec.Close
End Sub

The code error at 'Set DataReport1.DataSource = rec'.
DataReport1 is a simple data report (i didn't change the attributes)
Any help would be very grateful >.<. Thanks

[QVeen72]

Hi,

Declare the variables and try this modified code:

Private Sub cmdGenerateReport_Click()
    Dim conString As String
    Dim con
    Dim Rec
    conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "Database.mdb;"    
    Set con = New ADODB.Connection
    con.Open conString
 
    Set rec = New ADODB.Recordset
    rec.CursorLocation = adUseClient
 
    query = "select name from ms_people"            
    rec.Open query, con, adOpenStatic, adLockOptimistic
 
    If rec.RecordCount > 0 Then
        Set DataReport1.DataSource = rec
        DataReport1.Sections("Section1").Controls("Text1").DataField = "name"
        DataReport1.Show
    End If
End Sub

Remove rec.Close, otherwise the report will not show, as the object gets closed..
Check for these:
Database availabe in mentioned path..
Table/Field Names,
and DataReportName and a Text1 Control in Section1


REgards
Veena