How do you connect a Query to Data control

**nkechifesie** · Nov 17 '06, 11:18 AM

After writting the select statement below using the word Distinct the error Object doesn't support this property or method started appearing. I did a check by removing the data connection to this query and the error did not occur, how can I resolve this?
this is the select statement

Code:

SELECT DISTINCT  
H_DUTY_PER.H_DUTY_PER_ISST, 
H_DUTY_PER.H_DUTY_PER_EXPT, 
H_PER.H_PER_ISST, 
H_PER.H_PER_EXPT, 
INS_CERT.INS_CERT_ISST, 
INS_CERT.INS_CERT_EXPT, 
MOB_ADV.MOB_ADV_ISST, 
MOB_ADV.MOB_ADV_EXPT, 
RD_WORTH.RD_WORTH_ISST, 
RD_WORTH.RD_WORTH_EXPT, 
VEH_DESCRIPTION.VEHICLE_NO, 
VEH_DESCRIPTION.ENGINE_NO, 
VEH_DESCRIPTION.CHASIS_NO, 
VEH_LIC.VEH_LIC_ISST, 
VEH_LIC.VEH_LIC_EXPT, 
VEH_TYPE.VEHICLE_TYPE
FROM  
H_DUTY_PER , 
H_PER, INS_CERT, 
MOB_ADV, 
RD_WORTH, 
VEH_DESCRIPTION, 
VEH_LIC, VEH_TYPE
WHERE
 VEH_DESCRIPTION.VEHICLE_ID=VEH_TYPE.VEHICLE_ID And VEH_DESCRIPTION.VEHICLE_NO=VEH_LIC.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=H_DUTY_PER.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=H_PER.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=INS_CERT.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=MOB_ADV.VEHICLE_NO AND VEH_DESCRIPTION.VEHICLE_NO=RD_WORTH.VEHICLE_NO;

and this is how i did the join using visual basic to the Access Database

Code:

DVehQry.DatabaseName = App.Path & "\VEHICLE_TRACKER.mdb"
DVehQry.RecordSource = "VEH_QRY"

then to the various text box that would display the data in the field of the Db, i used this code

Code:

Text1(3).DataField = "VEHICLE_TYPE"
    Text1(6).DataField = "VEHICLE_NO"
    Text1(4).DataField = "ENGINE_NO"
    Text1(5).DataField = "CHASIS_NO"
    Text2(0).DataField = "VEH_LIC_ISST"
    Text2(1).DataField = "VEH_LIC_EXPT"
    Text2(2).DataField = "H_PER_ISST"
    Text2(3).DataField = "H_PER_EXPT"
    Text2(4).DataField = "RD_WORTH_ISST"
    Text2(5).DataField = "RD_WORTH_EXPT"
    Text2(6).DataField = "INS_CERT_ISST"
    Text2(7).DataField = "INS_CERT_EXPT"
    Text2(8).DataField = "MOB_ADV_ISST"
    Text2(9).DataField = "MOB_ADV_EXPT"
    Text2(10).DataField = "H_DUTY_PER_ISST"
    Text2(11).DataField = "H_DUTY_PER_EXPT"

.
Please how do i resolve this issue