Dim FilePath
Dim SQL
Dim conn as ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

FilePath = "c:\mydb\dbf"  
conn.Open ("Driver={Microsoft Paradox Driver (*.db )};" & _
          "DriverID=538;" & _
          "Fil=Paradox 5.X;" & _
          "DefaultDir=" & FilePath & ";" & _
          "Dbq=" & FilePath & ";" & _
          "CollatingSequence=ASCII;")

SQL = "select rezept.Num_R, rezept.ls, LS_D.name, rezept.Cre_date, rezept.Family, rezept.Name, rezept.Otch, " _
& "rezept.Kateg, rezept.[_summa] from (select rezept.Num_R, LS_D.name, rezept.ls, rezept.Cre_date, rezept.Family, " _
& "rezept.Name, rezept.Otch, rezept.Kateg, rezept.[_summa] from rezept left join LS_D on " _
& "lcase(rezept.ls)=lcase(LS_D.name) where rezept.cre_date between #4-1-2011# and #4-30-2011#) " _
& "where [LS_D].NAME is null"
rs.Open SQL, conn