dim rst as dao.recordset dim query as string query = "select sname,scity from smaster" set rst = oconn.execute(query) dim i as integer i = 1 do while not rst.eof Sheet1.Cells(i, 2) = QueryRs("sname") Sheet.Cells(i, 1) = QueryRs("scity") i +=1 loop I think this will work (haven't tested it dough)