this is code
Private Sub Text1_Change()
Dim SQL As String
SQL = " SELECT TblSchool.SchoolName, TblSchool.Stage, TblFail.Lab, TblFail.Device, TblFail.DeviceKind, TblFail.DescriFail, TblFail.DoFail, TblFail.DeviceDrag, TblFail.StateRepair, TblFail.Note " _
& " FROM TblSchool INNER JOIN TblFail ON...