I want to fill combo box from ms access but can't fill combo box there some error occurs plz help me share me the right code. Project work in vb6

Question

Sub fillcombo() Set rs =new adodb. Records at rs. Open "select * from newtable", cn, 3,2 While rs. EOF = false Combo2. Additem rs!Id rs. Close Set rs =nothing End