Microsoft, Access, 2000, Create Query or Form from Recordset in VBA

Private Sub cmdSubmit_Click()
 
Dim intConstTypeValue As Integer
Dim strSQL As String
Dim dtmDate As Date
Dim rstConstType As ADODB.Recordset
 
intConstTypeValue = OptConstType.Value
 
dtmDate = txtDate
 
strSQL = "SELECT [Project Information].ProjectNumber, [Project Information].NameofProject, ConstructionType.ConstructionTypeDesc, [Project Information].ContractBegDate, [Project Information].ContractEndDate, [Project Information].BegDate, [Project Information].EndDate, [Job Cost Information].ContractCost, [Job Cost Information].ActualCost, ConstructionType.ConstructionTypeId " & _
    "FROM (ConstructionType RIGHT JOIN [Project Information] ON ConstructionType.ConstructionTypeId = [Project Information].ConstructionTypeId) LEFT JOIN [Job Cost Information] ON [Project Information].ProjectNumber = [Job Cost Information].ProjectNumber " & _
    "WHERE ((([Project Information].EndDate) > #" & dtmDate & "# Or ([Project Information].EndDate) Is Null) And ((ConstructionType.ConstructionTypeId) = " & intConstTypeValue & "))"
    
    
Set rstConstType = New ADODB.Recordset
 
rstConstType.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
 
 
 
 
 
 
End Sub