Sub Test()
    Dim strSQL, strConn
    Dim conn
    Dim rs
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    strSQL = "SELECT * FROM t_bug68771"
        
    strConn = "DSN=test"

   ' open connection
    conn.Open strConn
    MsgBox "Connection opened!"


    conn.Execute "DROP TABLE IF EXISTS `t_bug68771`"
    conn.Execute "CREATE TABLE `t_bug68771` (`col1` int(11) NOT NULL,`col2` varchar(30) DEFAULT NULL, PRIMARY KEY (`col1`))"
    ' Insert 200 records
    conn.Execute "INSERT INTO `t_bug68771` VALUES (0,'MySQL 0'),(1,'MySQL 1'),(2,'MySQL 2'),(3,'MySQL 3'),(4,'MySQL 4'),(5,'MySQL 5'),(6,'MySQL 6'),(7,'MySQL 7'),(8,'MySQL 8'),(9,'MySQL 9'),(10,'MySQL 10'),(11,'MySQL 11'),(12,'MySQL 12'),(13,'MySQL 13'),(14,'MySQL 14'),(15,'MySQL 15'),(16,'MySQL 16'),(17,'MySQL 17'),(18,'MySQL 18'),(19,'MySQL 19'),(20,'MySQL 20'),(21,'MySQL 21'),(22,'MySQL 22'),(23,'MySQL 23'),(24,'MySQL 24'),(25,'MySQL 25'),(26,'MySQL 26'),(27,'MySQL 27'),(28,'MySQL 28'),(29,'MySQL 29'),(30,'MySQL 30'),(31,'MySQL 31'),(32,'MySQL 32'),(33,'MySQL 33'),(34,'MySQL 34'),(35,'MySQL 35'),(36,'MySQL 36'),(37,'MySQL 37'),(38,'MySQL 38'),(39,'MySQL 39'),(40,'MySQL 40'),(41,'MySQL 41'),(42,'MySQL 42'),(43,'MySQL 43'),(44,'MySQL 44'),(45,'MySQL 45'),(46,'MySQL 46'),(47,'MySQL 47'),(48,'MySQL 48'),(49,'MySQL 49'),(50,'MySQL 50'),(51,'MySQL 51'),(52,'MySQL 52'),(53,'MySQL 53'),(54,'MySQL 54'),(55,'MySQL 55'),(56,'MySQL 56'),(57,'MySQL 57'),(58,'MySQL 58'),(59,'MySQL 59'),(60,'MySQL 60'),(61,'MySQL 61'),(62,'MySQL 62'),(63,'MySQL 63'),(64,'MySQL 64'),(65,'MySQL 65'),(66,'MySQL 66'),(67,'MySQL 67'),(68,'MySQL 68'),(69,'MySQL 69'),(70,'MySQL 70'),(71,'MySQL 71'),(72,'MySQL 72'),(73,'MySQL 73'),(74,'MySQL 74'),(75,'MySQL 75'),(76,'MySQL 76'),(77,'MySQL 77'),(78,'MySQL 78'),(79,'MySQL 79'),(80,'MySQL 80'),(81,'MySQL 81'),(82,'MySQL 82'),(83,'MySQL 83'),(84,'MySQL 84'),(85,'MySQL 85'),(86,'MySQL 86'),(87,'MySQL 87'),(88,'MySQL 88'),(89,'MySQL 89'),(90,'MySQL 90'),(91,'MySQL 91'),(92,'MySQL 92'),(93,'MySQL 93'),(94,'MySQL 94'),(95,'MySQL 95'),(96,'MySQL 96'),(97,'MySQL 97'),(98,'MySQL 98'),(99,'MySQL 99'),(100,'MySQL 100'),(101,'MySQL 101'),(102,'MySQL 102'),(103,'MySQL 103'),(104,'MySQL 104'),(105,'MySQL 105'),(106,'MySQL 106'),(107,'MySQL 107'),(108,'MySQL 108'),(109,'MySQL 109'),(110,'MySQL 110'),(111,'MySQL 111'),(112,'MySQL 112'),(113,'MySQL 113'),(114,'MySQL 114'),(115,'MySQL 115'),(116,'MySQL 116'),(117,'MySQL 117'),(118,'MySQL 118'),(119,'MySQL 119'),(120,'MySQL 120'),(121,'MySQL 121'),(122,'MySQL 122'),(123,'MySQL 123'),(124,'MySQL 124'),(125,'MySQL 125'),(126,'MySQL 126'),(127,'MySQL 127'),(128,'MySQL 128'),(129,'MySQL 129'),(130,'MySQL 130'),(131,'MySQL 131'),(132,'MySQL 132'),(133,'MySQL 133'),(134,'MySQL 134'),(135,'MySQL 135'),(136,'MySQL 136'),(137,'MySQL 137'),(138,'MySQL 138'),(139,'MySQL 139'),(140,'MySQL 140'),(141,'MySQL 141'),(142,'MySQL 142'),(143,'MySQL 143'),(144,'MySQL 144'),(145,'MySQL 145'),(146,'MySQL 146'),(147,'MySQL 147'),(148,'MySQL 148'),(149,'MySQL 149'),(150,'MySQL 150'),(151,'MySQL 151'),(152,'MySQL 152'),(153,'MySQL 153'),(154,'MySQL 154'),(155,'MySQL 155'),(156,'MySQL 156'),(157,'MySQL 157'),(158,'MySQL 158'),(159,'MySQL 159'),(160,'MySQL 160'),(161,'MySQL 161'),(162,'MySQL 162'),(163,'MySQL 163'),(164,'MySQL 164'),(165,'MySQL 165'),(166,'MySQL 166'),(167,'MySQL 167'),(168,'MySQL 168'),(169,'MySQL 169'),(170,'MySQL 170'),(171,'MySQL 171'),(172,'MySQL 172'),(173,'MySQL 173'),(174,'MySQL 174'),(175,'MySQL 175'),(176,'MySQL 176'),(177,'MySQL 177'),(178,'MySQL 178'),(179,'MySQL 179'),(180,'MySQL 180'),(181,'MySQL 181'),(182,'MySQL 182'),(183,'MySQL 183'),(184,'MySQL 184'),(185,'MySQL 185'),(186,'MySQL 186'),(187,'MySQL 187'),(188,'MySQL 188'),(189,'MySQL 189'),(190,'MySQL 190'),(191,'MySQL 191'),(192,'MySQL 192'),(193,'MySQL 193'),(194,'MySQL 194'),(195,'MySQL 195'),(196,'MySQL 196'),(197,'MySQL 197'),(198,'MySQL 198'),(199,'MySQL 199');"

    strSQL = "SELECT * FROM t_bug68771"
    rs.Open strSQL, conn

    rs.Move 150

    MsgBox "DATA: " & rs.Fields(1).value

    rs.Move 18

    MsgBox "DATA: " & rs.Fields(1).value

    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing

End Sub

Test