???

[Pat S]

Hi
I have another question. Can ANYONE tell me how these two lines of code are connected to the following block of code? If I comment these two lines out, my grid fills with data as it's supposed to (but then another forms blows) If I leave it in, my grid does not fill. I am baffeled.


ElseIf IsNumeric(strStatement) Then
ValidSQL = strStatement



Private Sub cmbSite_Click()
With cmbSite
If .ListIndex > -1 Then
grdSchedule2.Enabled = True
LoadScheduleGrid
'Update DateLastCreated label for the schedule file
Set qd = db.QueryDefs("SelectDTScheduleFileCreated")
qd!pSiteNumber = Left(cmbSite, 7)
Dim rs
Set rs = qd.OpenRecordset

If rs.RecordCount = 0 Then
lblDateLastCreated = vbNullString
Else
lblDateLastCreated = rs!DateLastCreated
End If
rs.Close
Set rs = Nothing
qd.Close
Set qd = Nothing

End If
End With
End Sub