'ÒÔÏ´úÂëʾÀýÈçºÎ´ò¿ªÒ»¸öÃûΪ¡°±í1¡±µÄ±í£¬²¢°ÑËüµÄµÚ¶þ¸ö×Ö¶ÎÖðÒ»ÏÔʾÔÚÁ¢¼´´°¿Ú£¬×îºó¹Ø±Õ¼Ç¼¼¯¼°AdoÁ¬½Ó¡£ Dim cn As New ADODB.Connection '¶¨ÒåÒ»¸öAdoÁ¬½Ó Dim rs As New ADODB.Recordset '¶¨ÒåÒ»¸öAdo¼Ç¼¼¯ Dim sql As String '¶¨ÒåÒ»¸ö×Ö·û´®±äÁ¿ Set cn = CurrentProject.Connection '¶¨ÒåcnµÈÓÚµ±Ç°Á¬½Ó sql = "select * from ±í1" '¸ø×Ö·û´®¸³Öµ rs.Open sql, cn, adOpenKeyset, adLockPessimistic, 1 '´ò¿ªÒ»¸ö¼Ç¼¼¯²¢¸³¸ørs Do While Not rs.EOF 'µ±²»ÊǼǼ¼¯µÄ½áÊø¾ÍÑ»· Debug.Print rs.Fields(1) 'ÔÚÁ¢¼´´°¿ÚÏÔʾ³öµÚ¶þ¸ö×ֶεÄÖµ rs.MoveNext '¼Ç¼¼¯ÏÂÒÆÒ»Ìõ£¬Èç¹ûûÓÐÕâÌõ¾Í»áËÀÑ»· Loop 'Ñ»· rs.Close '¹Ø±Õ¼Ç¼¼¯ cn.Close '¹Ø±ÕÁ¬½Ó Set cn = Nothing