Explore Question & Answer Community

sql = "Select CategoryID,txtName,txtURI,ParentID from _tbl_Categories Where ParentID = 0"' and nStatus =" & nStatus Call RunSql(rsCategories,Sql,DB1,1,3) If Not rsCategories.Eof then arrParentCategories = rsCategories.getrows()

Arts & Humanities

Business & Finance

Consumer Electronics

Education & Reference

Entertainment & Music

Health

Games & Recreation

Science & Mathematics

Beauty & Style

Sports

Social Science

Cars & Transportation

Dining Out

Food & Drink

Home & Garden

Local Businesses

Family & Relationships

News & Events

Pets

Politics & Government

Environment

Society & Culture

Travel

Computers & Internet

Pregnancy & Parenting