Opps add ad close peran at the end of the sql.

strsql = "Select SpecialistType,SpecialistName From Specialists Where "
strsql = strsql & "SpecID In (Select SpecID From DrsInsuranceList Where "
strsql = strsql & "Insurance = '" & dbcombo2.text & "')"

That might help