Kindly Verify This Query
"rs.Open "select customer.cusno,customer.fullname,customer.idcn,customer.mobie,customer.reg,customer.dateis,customer.email,sales.pron,sales.blono,sales.lano,sales.sql from customer,sales where customer.idcn = '" & txtCusC.Text & "'", con, 1, 3"
"rs.Open "select customer.cusno,customer.fullname,customer.idcn,customer.mobie,customer.reg,customer.dateis,customer.email,sales.pron,sales.blono,sales.lano,sales.sql from customer,sales where customer.idcn = '" & txtCusC.Text & "'", con, 1, 3"