INNER JOIN при отсутствии данных

Function SQLSelect(tableName As String, Optional criteria As String, Optional counts As String = "*", Optional joinTableName, Optional criteriaJoinTable) As Recordset
    Dim SQLText As String
    
    SQLText = "SELECT " & counts & " FROM " & tableName & " "
    
    If Not IsMissing(joinTableName) And Not IsMissing(criteriaJoinTable) Then
        If UBound(joinTableName) <> UBound(joinTableName) Then
            response = MsgBox("Ошибка при выполнении запроса. Несовпадает количество добавляемых таблиц и критериев подбора.", vbOKOnly + vbCritical, "Ошибка при выполнении запроса")
            Exit Function
        End If
    
        For i = LBound(joinTableName) + 1 To UBound(joinTableName)
            SQLText = SQLText & "INNER JOIN " & joinTableName(i) & " ON " & criteriaJoinTable(i) & " "
        Next i
    End If
    
    If Not IsMissing(criteria) Then SQLText = SQLText & "WHERE " & criteria
    MsgBox SQLText
    Set SQLSelect = CurrentDb.OpenRecordset(SQLText)
End Function

Private Function incLoad()
    Dim RS As Recordset
    Dim FRS As Recordset
    Dim joinTableName(1) As String
    Dim criteriaJoinTable(1) As String
    
    joinTableName(1) = "Company"
    criteriaJoinTable(1) = "Incidents.companyId = Company.id"
Set RS = SQLModule.SQLSelect("Incidents", "Incidents.id = " & incId, "*", joinTableName, criteriaJoinTable)
    
    If Not RS.RecordCount > 0 Then
        MsgBox "Ошибка при выполнении запроса. Пожалуйста перезапустите программу.", vbOKOnly + vbCritical, "Ошибка при выполнении запроса"
        Exit Function
    End If