diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg
index b165ef183b..30de5e786e 100644
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -220,6 +220,9 @@ static function ADO_OPEN( nWA, aOpenInfo )
       case Lower( Right( aOpenInfo[ UR_OI_NAME ], 4 ) ) == ".xls"
            s_aConnections[ nWA ]:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + aOpenInfo[ UR_OI_NAME ] + ";Extended Properties='Excel 8.0;HDR=YES';Persist Security Info=False" )
 
+      case Lower( Right( aOpenInfo[ UR_OI_NAME ], 4 ) ) == ".dbf"
+           s_aConnections[ nWA ]:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + aOpenInfo[ UR_OI_NAME ] + ";Extended Properties=dBASE IV;User ID=Admin;Password=;" )
+
       case Lower( Right( aOpenInfo[ UR_OI_NAME ], 3 ) ) == ".db"
            s_aConnections[ nWA ]:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + aOpenInfo[ UR_OI_NAME ] + ";Extended Properties='Paradox 3.x';" )