If print1.RecordSet.EOF = False Then print1.RecordSet.MoveFirst End If Do While print1.RecordSet.EOF = False combo1.AddItem print1.RecordSet.Fields(2).Value print1.RecordSet.MoveNext Loop End Sub ÕÕÀí˵£¬Îҳɹ¦¸ü¸ÄÁ˱íÖеÄÊý¾Ýºó£¬ÔٴζÁÈ¡Ó¦¸ÃÊǸüкóµÄÊý¾Ý£¬ÎªÊ²Ã´²»ÐÐÄØ£¿ print1.close ¹Ø±ÕÒ»´ÎÖØдò¿ª¿ÉÄܾͺÃÁË print1.closeÓÐÕâ¸ö·½·¨Â𣿣¿£¿£¿ ÎÒ·¢ÏÖÎÒ·¸ÁËÒ»¸ö´íÎó: ÎÒÒÔΪform1.show³öÀ´ÒԺ󣬳ÌÐò»áÍ£ÔÚÄÇÀÏÖÔÚ·¢ÏÖ²»ÊÇÕâÑù Ó¦¸ÃÓУ¬×Ô¼ºÕÒÕÒ°¡