DataReport URgeNT

Good mornig guys, hope u r fine

This SQL Statement:

VB Code:

SQLString = "SELECT Books.*, NewCourse.* FROM Books, NewCourse WHERE Books.Acc3F BETWEEN [DateStart] AND [DateEnd] OR Books.Access971From BETWEEN [DateStart] AND [DateEnd] OR Books.Access972From BETWEEN [DateStart] AND [DateEnd] "
SQLString = SQLString & "OR Books.BusNetFrom BETWEEN [DateStart] AND [DateEnd] OR Books.CreateProjF BETWEEN [DateStart] AND [DateEnd] OR Books.DreamF BETWEEN [DateStart] AND [DateEnd] OR Books.EWebFrom BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " Books.Excel971From BETWEEN [DateStart] AND [DateEnd] OR Books.Excel972From BETWEEN [DateStart] AND [DateEnd] OR Books.Excel973From BETWEEN [DateStart] AND [DateEnd]OR Books.FinEssF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " Books.FlashF BETWEEN [DateStart] AND [DateEnd]OR Books.FrontpageAFrom BETWEEN [DateStart] AND [DateEnd]OR Books.FrontpageIFrom BETWEEN [DateStart] AND [DateEnd] OR Books.FunCommF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " Books.FunCustF BETWEEN [DateStart] AND [DateEnd] OR Books.FunSelF BETWEEN [DateStart] AND [DateEnd] OR Books.HardF BETWEEN [DateStart] AND [DateEnd] OR Books.HTML1From BETWEEN [DateStart] AND [DateEnd] OR Books.HTML2From BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " Books.InternetFrom BETWEEN [DateStart] AND [DateEnd] OR Books.IntroPC95From BETWEEN [DateStart] AND [DateEnd] OR Books.IntroProgFrom BETWEEN [DateStart] AND [DateEnd] OR Books.IntroWin98From BETWEEN [DateStart] AND [DateEnd] OR Books.JavaSAFrom BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " Books.JavaSIFrom BETWEEN [DateStart] AND [DateEnd] OR Books.mngF BETWEEN [DateStart] AND [DateEnd] OR Books.mngProjF BETWEEN [DateStart] AND [DateEnd] OR Books.NetCabF BETWEEN [DateStart] AND [DateEnd] OR Books.OffIntFrom BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " Books.OPF BETWEEN [DateStart] AND [DateEnd] OR Books.PastelFrom BETWEEN [DateStart] AND [DateEnd] OR Books.Power971From BETWEEN [DateStart] AND [DateEnd] OR Books.Power972From BETWEEN [DateStart] AND [DateEnd] OR Books.ProjMngFunF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " Books.Soft1F BETWEEN [DateStart] AND [DateEnd] OR Books.VB6From BETWEEN [DateStart] AND [DateEnd] OR Books.VB6IntroFrom BETWEEN [DateStart] AND [DateEnd] OR Books.VC6From BETWEEN [DateStart] AND [DateEnd] OR Books.Win98AdvF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " Books.Word971From BETWEEN [DateStart] AND [DateEnd] OR Books.Word972From BETWEEN [DateStart] AND [DateEnd] OR Books.word973From BETWEEN [DateStart] AND [DateEnd] OR Books.mngProjF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.AdvIEF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " NewCourse.ASPAdvF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.ASPIntroF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.CF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.CPF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.VBDBProgF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " NewCourse.VBDistDeskF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.VCMFCF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.VCDistDeskF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.VCDistAppF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.WebCSSF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " NewCourse.DHTMLF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.XMLIntroF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.XMLDTDF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.XMLSchemaF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " NewCourse.VBScriptF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.OutlookIF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.OutlookAF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.PastelAdminF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " NewCourse.MCSEF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.PMProjF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.PCBasicF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.EBusF BETWEEN [DateStart] AND [DateEnd] OR"
SQLString = SQLString & " NewCourse.EBSTF BETWEEN [DateStart] AND [DateEnd] OR NewCourse.ECommFunF BETWEEN [DateStart] AND [DateEnd]"

is supposed to load info from 2 tables where the particular fields are between specified dates, but.. instead - the computer just freezes, is there something wrong with the staement above¿

And this calls the above statement:

VB Code:

Private Sub cmdOK_Click()
 
With denvFTBooks
  If .rsqryFTBooks.State = 1 Then .rsqryFTBooks.Close
  .Commands.Item("qryFTbooks").CommandText = SQLString
  Call denvFTBooks.qryFTbooks(DtFrom, DtTo)
 
   If .rsqryFTBooks.RecordCount = 0 Then
    MsgBox "No " & optBook(i).Caption & " Books Between " & DtFrom & " and " & _
    DtTo & ".", vbInformation, "Books"
   Else
    '.rsqryFTBooks.MoveLast
    Cout = .rsqryFTBooks.RecordCount
    'Call CountX2
    datrepFTBooks.Caption = frmSelBooks.optBook(i).Caption & " Books Needed Between " _
    & DtFrom & " And " & DtTo
   datrepFTBooks.Sections(2).Controls.Item("lblBooks").Caption = CStr(Cout) & " " & _
   frmSelBooks.optBook(i).Caption & _
    " Books Needed Between " & DtFrom & " And " & DtTo
    datrepFTBooks.Show 1
    denvFTBooks.rsqryFTBooks.Close
   End If
 
 End With
 
End Sub

Please help guys, it's very urgent...