Here is the sub, which is on a code file
Line 308
Public Sub CADOIZones(ByVal SetDesc As Data.DataSet)
Dim strCADOIZones As String = "INSERT INTO [zz_Results Master] (Name3, Risks, TIV, [Set], Type, [Index], Peril) " & _
"SELECT Profdata.dbo.Cresta([Cresta])AS [CA DOI Zone]...