I have this code:
......
 With dClienti
        .DatabaseName = App.Path & "\ECM.mdb"
        .RecordSource = "select * from Clienti where ( cod_client = " &
str(fMainForm.dListAllClienti.Recordset![cod client]) & " )"
        .Refresh

......
where dClienti it is a DATA control.
Why this is working in VB5 but in VB6 crash with Runtime error '13' Type
mismatch (in ".Refresh" line)?

Florin.