Here's my code...
Private Sub Command15_Click()
Dim strSelect, strWhere, strFrom As String
Dim strNcTool, strNcDiv, strMaterial As String
Dim defQuery As QueryDef
strSelect = "SELECT [Tooling Information].[NC Tool #], [Tooling Information].[NC Division], [Tooling Information].[Profile #...