private sub geshu(xx as integer)dim i as integerdim conn as adodb.connectiondim workstring as stringdim sqlcommand as stringdim rs as adodb.recordsetset conn = new adodb.connectionworkstring = "provider=microsoft.jet.oledb.4.0;data source=" + app.path & "\数据库名.mdb"conn.open workstringsqlcommand = "select * from 表名"rs.cursorlocation = 3 '加上这句,一定要用这种方式打开recordsetrs.open sqlcommand, conn, adopenkeyset, adlockoptim**tic currentcount = rs.recordcountif currentcount <= 0 then goto bbrs.movelasti = 0do if rs.bof = true then exit do '选择集结束 i = i + 1loopbb: conn.closeset conn = nothingend sub在vb中用call geshu(xx)调用这个过程就行 20210311