diff --git a/harbour/contrib/adordd/mysql3.prg b/harbour/contrib/adordd/mysql3.prg
new file mode 100644
index 0000000000..fa5cfdccad
--- /dev/null
+++ b/harbour/contrib/adordd/mysql3.prg
@@ -0,0 +1,21 @@
+// Testing LOCATE
+
+#include "adordd.ch"
+
+REQUEST ADORDD
+
+function Main()
+
+   USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ;
+      FROM "www.freesql.org" USER "myuser" PASSWORD "mypass"
+
+   LOCATE FOR "City LIKE 'Chi*'"
+
+   while ! Eof()
+      ? test00->First, test00->City
+      CONTINUE
+   end   
+
+   USE
+
+return nil
\ No newline at end of file